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- Projetado especificamente para microcomputadores 
de uso pessoal ou comercial 

- Duto eletrificado com tomadas, filtro e circuitos de 
segurança 

- Gaveteiro-arquivo dimensionado para diskettes e 
fitas cassete 

- Dimensões: 

1,30 X 0,65 X 0,65m e 1,90 x 0,75 x 0,65 m 

- Acabamento em madeira natural, laminado ou 
pintura acrílica. 

- Para maiores informações, solicite folheto. 



Al. dos Arapanés, 841 - CEP 04524 
Tel.: (011) 542-1917 - Sáo Paulo • Brasil 
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A economia brasileira se assemelha a 
uma escada rolante que está descendo. Se 
você nela ficar parado, fatal mente acabará 
descendo junto. Q setor ligado à informáti¬ 
ca, porém está percorrendo esta escada em 
sentido contrário e consegue galgar seus de¬ 
graus tão rapidamente que está subindo 
apesar da crise e da recessão. 

Neste mês de outubro realiza-se a III Fei¬ 
ra Internacional da Informática no Parque 
Anhembi em São Paulo. O volume de expo¬ 
sitores e participantes mostra bem a impor¬ 
tância deste setor da economia brasileira. 

Deve-se destacar, entretanto que esta 
pujança não é devida aos grandes sistemas, 
área dominada pelos "experts" e pelos 
pomposos e retumbantes executivos das 
centrais de processamento de dados. Ela se 
deve mais ao pequeno empresário ou pro¬ 
fissional que se utiliza de um mini ou mi¬ 
crocomputador: se deve a você, usuário, 
que tem uma pequena (e baratas) maravi¬ 
lha dentro de casa. Você deve se orgulhar 
distos 

Todo este otimismo, porém deve gerar 
duas cautelas: em primeiro lugar devemos 
lutar com todas as forças para que esta in¬ 
dústria brasileira continue brasileiras Em 
segundo lugar devemos nos acautelar con¬ 
tra os picaretas atraídos pelo lucro fácil e 
pelo modismo do mercado. Para isso a nos¬ 
sa revista continuará informando, analisan¬ 
do e principalmente ensinando ao usuário 
como tirar o máximo proveito de seu pe¬ 
queno grande computador. Como exemplo 
disto, estamos publicando neste número a 
primeira parte de um importante artigo so¬ 
bre direitos autorais de software. Afinal, 
muitos de nossos leitores são "pronsumido- 
res", ou seja, consumidores que também 
produzem em nível artesanal ou até profis¬ 
sional, e esta é urrw atividade que pode e 
deve ser protegida contra piratas e tuba- 
rões\ 
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CARTAS DOS 
LEITORES 


Gostaria de parabenizá-los pela excelente idéia de 
conglomerar os usuários do TK82C em torno de uma 
publicação. 

Aproveito a oportunidade para solicitar o número ze¬ 
ro da Microhobby e assim poder completar a coleção, 
desde o início. A forma de pagamento deverá ser infor¬ 
mada pelos senhores, para que eu possa receber o núme¬ 
ro zero. 

Uma vez que a revista tem grande penetração, gostaria 
de solicitar-lhes, se possível, a publicação ou o envio pa¬ 
ra mim, do esquema eletrônico do TK-82C, pois tenho 
vontade de conhecê-lo mais a fundo tanto em hardware 
quanto em software e passar assim, a desenvolver alguns 
usos diferentes para o micro, principalmente na área de 
controle. 

Contando com a sua compreensão, agradeço a aten¬ 
ção dispensada. 

Luís Henrique P. Fonseca — Salvador, BA. 

Caro Luiz Henrique, 

Infelizmente o número Zero de nossa revista está es- 
gotado.Como paliativo, porém, você pode tentar obter, 
de algum amigo, uma cópia "Xerox" dela. Em último 
caso, escreva-nos novamente e nós lhe mandaremos uma 
"xerox " da mesma. 


Faz pouco mais de três meses, procurei comprar uma 
máquina de jogos-xadrez e não achei no mercado. Numa 
das lojas que visitei, me ofereceram um TK-82, dizendo 
que "também jogava xadrez". 0 preço do mesmo era 
razoável e eu o comprei. 

Depois de constatar que realmente o computador jo¬ 
gava xadrez, comecei a pensar: "uma máquina capaz de 
fazer aquilo, deveria ser capaz, também de fazer virtual¬ 
mente qualquer coisa". Passei a estudar o manual, que a 
princípio me pareceu escrito em grego, interessando-me 
cada vez mais pelo computador. Aos poucos, fui me sen¬ 
tindo capaz de desenvolver um programinha, para con¬ 
trole de nosso orçamento doméstico — e não é que deu 
certo?! 

Logo descobri, porém, que a capacidade da máquina 
não é ilimitada. Não é coisa muito difícil botar, na me¬ 
mória, um programa. Isto fez aumentar minha admira¬ 
ção pelo programa de xadrez. E também minha curiosi¬ 
dade. Quis saber mais a respeito daquela pequena mara¬ 
vilha. E minha curiosidade levou-me a ler, com mais 
atenção, a revista número Zero da Microhobby. Gostei 
tanto da revista que resolvi fazer a sua assinatura. Os 
dois primeiros números confirmaram a minha expecta¬ 
tiva. A medida que vou adquirindo novos conhecimen¬ 


tos, vejo expandir-se o horizonte das possibilidades que 
a computação oferece. 

Enfim; "descobri uma nova atividade extraordinaria¬ 
mente interessante, que tem, a meu ver, um único defei¬ 
to: não me deixa mais tempo para o xadrez". 

Junto com o número 2, recebi a fita brinde, que por 
algum erro involuntário, de sua parte, veio sem o progra¬ 
ma "Simulador de Vôo". Estou remetendo-o para, se 
possível, trocá-la. E, se for possível escolher, eu prefiro 
que me enviem o apagador de fitas. Aproveitando o lado 
2 da fita, que estava "vazio", gravèi nele, uma possível 
solução do quebra-cabeça "Verdadeiro ou Falso", que 
deve ser carregado com LOAD "V/F". Mesmo que não 
seja escolhido para publicação, gostaria que fosse co¬ 
mentado por alguém que realmente saiba programação, 
para poder corrigir-me e para que eu possa aprender. 

Estou enviando, também, uma fita do "TK-MAN" 
que não quer entrar. Gostaria de saber se é defeito de 
meu gravador ou da fita. 

E tenho ainda mais uma pergunta: 

1.0 manual diz que PAUSE deve ser seguida de 
POKE 16437,255; mas nos programas publicados na Re¬ 
vista, POKE está antes de PAUSE. E o mesmo? 

2. Se eu entendi direito, no programa de Alta Resolu¬ 
ção (nP 2) há uma linha REM que fornece instruções em 
linguagem de máquina. As linhas REM não são, então 
ignoradas? Existe o risco de, ao se utilizar em REM (que 
pode ser "enfeitado" com alguns caracteres gráficos) 
estas linhas fornecerem alguma instrução não desejada? 

Grato pela atenção que vocês me dispensarem e até a 
próxima! 

Alejandro Luis Cobos - São Paulo, Capital. 

Prezado Alejandro, 

Grande parte de sua estória é comum a muitos usuá¬ 
rios do TK (entre os quais nós nos incluímos). Com rela¬ 
ção às fitas, informamo-lhe que a do "Simulador de 
Vôo" foi substituída por outra testada e já foi providen¬ 
ciado o seu envio para você. 

A fita do "TK-MAN" foi remetida à MICROSOFT pa¬ 
ra ser testada. Oportunamente você receberá notícias 
dela. 

■ Sua solução do Quebra-Cabeça ainda está sendo estu¬ 
dada por nossos programadores. 

A seguir, damos a resposta de sua primeira pergunta. 
A resposta da sua segunda pergunta, foi transferida para 
a seção "DESGRILANDO". 

1. A Unha POKE 16437,255 após uma PAUSE, só é ne¬ 
cessária nas máquinas mais antigas (devido a seu peque¬ 
no inconveniente na ROM). As máquinas mais novas dis¬ 
pensam-na. o 
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Prezados Senhores, 

Antes de mais nada, meus parabéns pela excelente re¬ 
vista; informo-lhes que a “Microhobby" é a revista que 
sempre quis ter em mãos, agora não falta mais nada. 

O que quero saber é o seguinte: "A questão de uns 
quatro meses, adquiri, pela Microdigital, a fita com os 
prograrhas "Demolidor e Marciano". E sem pre as usei 
sem problemas. 

Só que de uns dias para cá, o programa "Marciano” 
não entra no Micro após o LOAD. Ao invés de acabar 
com Çj/0 ele acaba com o cursor L. 

Eu fiz exatamente o que os itens 1 e 2 falavam na res¬ 
posta para o Sérgio no número anterior, mas não obtive 
resultado. Logo, eu pergunto: "Seu eu enviar para a 
Microdigital - explicando o problema, eles eventual¬ 
mente me mandam outra fita?". 

E por último, o TK-82C não possue a função "DEF 
FNR(x)" — 0 que devo fazer?". 

Atenciosamente, 

Amauri P. Lúcio — Taubaté, SP. 

Caro Amauri, 

Cremos que a gravação em fita tenha sido danificada 
acidentalmente por você (talvez por deixá-la próxima a 
televisores ou transformadores e outros aparelhos do ti¬ 
po). Neste caso infelizmente, a fita não lhe será substi¬ 
tuída. De qualquer modo, esperando que estejamos er¬ 
rados, vaie a pena você tentar enviá-la para verificação. 
Com relação a garantia das fitas comercializadas, comen- 
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tamos a respeito, sobre uma inovação introduzida pela 
Multisoft na seção Fita do Mês. 

Você pergunta ainda, como traduzir para o BASIC 
TK, a instrução DEF FNR (x). A seguir, publicamos, pa¬ 
ra você, uma possível solução: 

Suponha que as Unhas a serem traduzidas sejam as se¬ 
guintes: 

1000 DEF FNR(x) = LN (INT(x + LNx)) 

1500 LET K= FNR (10) 

Procedemos a tradução seguindo os três passos 
adiante: 

1. Colocamos o segundo membro da igualdade da Unha 
1000 numa STRINC. 

1000 LET F$ = 'XN (INT (X + LN (x)))" 

2. Atribuímos à variável X o valor 10, que é o argumen¬ 
to da função FNR na Unha 1500. 

1499 LETX = 10 

3. Atribuímos à variável K, o valor (VAL) da STRING 
FS. 


1500 LET K = VAL (F$) 

Outras soluções podem ser utilizadas. Como exercí¬ 
cio, tente "bolar" uma. q 


O QUE ESTÁ RESERVADO 
PARA O N? 6: 




INFORMÁTIG 

^83 

1 

1 

i; 

1 



L . . 


o QUE FOI A FEIRA DA INFORMATICA E O 
CONGRESSO? — Como esteve a Microhobby. 


PROGRAMAS DO LEITOR: 

Jogos Inteligentes ou Inteligência Artificial 
A melhor maneira de escrever programas de jogos 
inteligentes em BASIC. 

Solução de Equação Algébricas e Transcedentes — 
Através do método ''de Boizano ou de Bissecção". 

PROGRAMAS DO MÉS: 

Burgo — 0 programa destaque na edição nP 6. 

MUITAS DICAS E INFORMAÇÕES 

PEQUENOS ANÚNCIOS — Envie seu pequeno anúncio 
para ser publicado gratuitamente. 

POR DENTRO DO APPLE: 

Velocidade e Economia 
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DESGRILANDO 



• Trecho da Carta de nosso leitor Alejandro Lais Cobos, publi¬ 
cada na seção CARTAS DE NOSSOS LEITORES, neste número: 

... Se eu entendi direito, no programa de Alta Resolu¬ 
ção (nP 2) há uma linha REM que fornece instruções em 
linguagem de máquina. As linhas REM não são, então 
ignoradas? Existe o risco de, ao se utilizar um REM (que 
pode ser "enfeitado" com algum caractere gráfico), estas 
fornecerem alguma instrução não desejada? 


Aqui está a sua resposta Alejandro: 

As Unhas REM são ignoradas pelo micro, quando ele 
as lê em BASIC (dessa forma, não há perigo em "enfeitá- 
las" com caracteres gráficos). Note que é justamente o 
fato de serem ignoradas, que as tornam boas lugares pa¬ 
ra guardarmos programas em linguagens de máquina. 
Tais programas só serão lidos pelo TK se o instruirmos 
devidamente, através da função USR. 

Para compreertder melhor o que dissemos acima, digi¬ 
te o programa listado a seguir, tendo o máximo cuidado 
para não errar ao digitar os caracteres após o REM cfa li¬ 
nha 1. Para não haver dúvidas, consulte a TABELA 1, 
onde eles estão mostrados em seqüência. 


1 REM E£RND-7««-: S? RETURN ^C^t- 
EN POKE i. S_IST TRN 

S POKE 16ESS,126 

3 POKE 16524-, 118 Fiqura 1 

4IIPOKE 16529,119 ^ 

Ao introduzir os caracteres RETURN, POKE e LIST 
proceda digitando antes SHIFT THEN e depois apague 
os THEN's, movendo o cursor para trás usando, para is¬ 
so, RUBOUT. 


ATENÇÃO: Em hipótese alguma traga a Unha 1 REM 
para baixo com o comando EDIT, Caso você já tenha 
feito isso, digite NEW e comece novamente. 

Após haver introduzido a Unha 4, digite RUN e NEW 
LINE. Quando o 0/4 surgir na tela, digite LIST e NEW 
LINE. A Unha 1 REM .. . deve modificar-se Ugeiramente 
e a listagem deve ser a seguinte: 

1 REM EERNDT^--. POKE t 

LIST TRN 

2 POKE 16522,126 

3 POKE 16524., 118 

4. POKE 16529,119 Figura 3 

Se tudo correu bem até aqui, complete o programa 
como mostrado adiante e ponha-o para rodar: 

1 REM ECRNDT^-: 5BT7*4. POKE t 
LIST TRM 

2 POKE 16522,126 

3 POKE 16524-, 118 

4. POKE 16529,119 

10 FOR 1=0 TO 255 

20 PRINT CHR« l: 

30 NEXT I 

40 FOR U=0 TO 40 

S0 LET DESGRILRNDO=USR 16514 

60 FOR K=0 TO 10 

70 NEXT K 

80 NEXT U 

90 PRINT RT 20,14; “FIM” Figura 4 

Observe atentamente ó que ocorre na tela. Você digi¬ 
tou RUN e NEW LINE e o micro começou a ler o pro¬ 
grama Unha por Unha, em BASIC. Vamos analisar como 
ele lê cada uma delas ! 

TABELA II 


ORDEM OBSERURC-RO CRRRCTERE 


1 

LETR32 3 

E 

E 

2 

(5HXPT 

SPRCE.» 

f 

3 

(PÜNC, 

RRND.» 

RND 

4. 

NUM6RO 

7 

7 

5 

ÍGRRPHICS <>> 


e 

ISHIPT 



7 

ISHIPT 

z:t 


ô 

NÜH5RO 

5 

5 

Q 

(SHJFT 

c> 

-71 

lO 

( THEN 

RETURN > 

RETURN 

11 

ÍSHXPT 

O 


12 

LETRR ^ 

D 

C 

13 

ÍGRRF.SHIFT 7) 


14^ 

IFUNC-TION K.» 

LEN 

15 

(GRRP. 

6PRCE> 

■ 

16 

<6HXPT 



17 

NUHERO 

7 


16 

ÍSHXPT 

U> 

k 

12 

NUHERO 

4 

4 

26 

l* THEN 

POKE S 

POKE 

21 

(SHXPT 

X> 

1 

22 

( THEN 

LX5T > 

LX3T 

23 

(PUNCTXDN E> 

TRN 


Figura 2 


LINHA 

AÇÃO 00 TK 

1 

IGNORA 

2 

Coloca 0 númaro 126 no byte 16522 

3 

Coloca o nún>ero 118 no byte 16524 

4 

Coloca o número 119 no byte 16529 

1ta3e 

Imprime o conjunto de caracteres do TK através de 
um *'Looping FOR-NEXT" 

40 

Inicia em ''Looping FOR NEXT" 6% 41 voltas. 

5g 

Ele 14 essa linha normalmente até encontrar a função 
USR, cujo argumento é o número 16514. Quarnlo a 
encontra, para de ler o programa em BASIC e conr>eça 
a lé-lo em LINGUAGEM de MÁQUINA, a partir do 
byte 16514. Acontece que, juntamente nesse byte, en- 
contra se o código do prinieiro caracter após o REM 
da linha 1 (código do caracter E = 42). Prossegue 
lendo os bytes sucessivos (16515, 16516, etc.) em lin¬ 
guagem de nrtéquina, até encontrar, em um deles, o có¬ 
digo 261 correspondente ao caracter TAN. Após lé-lo, 
o micro passa novamente a operar em BASIC, lendo a 
linha seguinte àquela em que encontrou a função USR 
(linha 66). O caracter TAN lido em linguagem de mé- 
quina, faz o computador voltar ao BASIC. 

Essa rotina em linguagem de máquina, é a responsável 
pela inversão dos caracteres na teia. 

66 

Fecha o ''Looping". 

76 

Apresenta "FIM" na tela. 
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Adiante, você pode observar os aspectos da tela após 
a Unha 30 e 70 serem lidas. 
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• Tento participar desta revista expondo algumas dúvi¬ 
das que tenho. Trata-se da subrotina da ROM do 
TK-82C, a qual é chamada pela instrução FF (RST 38). 
Meu TK mostra a seguinte seqüência de instruções a par¬ 
tir do endereço 0038H; 


0DC24500E105C8CBD9ED4FFBE9D1C818F8. . . 


Após decrementar a rotina salta para o endereço 
0045 somente se a condição for "'Não Zero". Então, que 
sentido tem a instrução do endereço 0046H (C8-Ret Z) 
após a instrução Dl (POP DE) se, de acordo com vários 
autores, a instrução "POD DE" não altera flags? Haverá 
talvez alguma outra parte da ROM que "chame" ou que 
se "desvie" para o endereço 0045H? 

Outra coisa: — a instrução Dl nesta rotina tem outra 
função que não a de simplesmente retirar (eliminando) 
o endereço do topo da pilha (stack)? 

É possível explicar, mesmo que resumidamente, o 
funcionamento do registro "R" nesta rotina? E como 
ocorre o chamamento automático desta sub-rotina du¬ 
rante o processamento do display? 

Ainda sobre a ROM do TK, na rotina referente a gra¬ 
vação de programas encontramos as seguintes instruções 
a partir do endereço 0352H: 



Que efeito tem a instrução OUT logo após a instrução 
IN, no caso acima? E a porta FE, refere-se ao teclado? 
Quais as portas de entrada e de saída no TK? 

JOSÊ BIS 10LI SOBRINHO - São Paulo, SP. 
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TCMPO 


o mais recente lançamento da MULTISOFT para o 
seu TK {TK82, TK83 e TK85). 

Emocionante aventura onde você conduzirá o 
sapo desde o ponto de partida, até uma casa vazia. 

Você deverá cruzar a auto-estrada, sem ser 
atropelado e, em seguida, atravessar um caudaloso 
rio pulando sobre tartarugas e troncos Que passam flutuando. 
Para adquiri-lo e entrar para a galeria de recordes do 
pulo do sapo basta enviar carta com seu nome e 
endereços completos, anexando cheque de Cr$ 
5.690,00, nominal à MULTISOFT INFORMÁTICA LTDA. - 
Cxa. Postal 54.121 • CEP 01296 - São Paulo - SP 



Prezado José, 

A instrução POP DE não altera as flags, e nem deve\ 
O RET Z baseia-se no resultado das flags geradas por ins¬ 
truções anteriores ao POP DE. Geralmente, as únicas ins¬ 
truções que afetam as flags convenientemente são as ins¬ 
truções aritméticas e as lógicas (além, é claro, da instru¬ 
ção CP). Com relação às outras dúvidas, por exigirem 
respostas razoavelmente extensas, sugerimos a leitura 
dos Hvros "Introdução à Linguagem de Máquina para o 
TK" - ASSEMBL Y Z80 - VoL I e II ^ Flavio Rossini 
(Editora Moderna e Micromega). O volume I está sendo 
lançado (na Feira da Informática) e o volume II ainda 
não tem data prevista de lançamento. 

Infelizmente a maior parte das respostas às suas per¬ 
guntas encontra-se no volume II. 


O 
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PROGRAMAS DO MES 




CALEIDOSCOPIO 


Para simular o efeito de um caleidoscópio na tela do 
TK, utilizem-se da região central da tela (24 x 24 posi¬ 
ções) dividindo-a em quatro partes. Numa das partes se¬ 
rá gerado, conforme vocês poderão observar, em posição 
aleatória, um grupo de quatro caracteres iguais (também 
escolhidos aleatoriamente), os quais devem aparecer 
imediatamente e simetricamente nas outras três partes. 
Devido à velocidade requerida, utilizemos então, uma 
subrotina em ASSEMBLY — que será chamada pelo pro¬ 
grama em BASIC — para colocarmos os caracteres na 
tela. 

Comecemos pela subrotina em ASSEMBLY. Ela utili¬ 
zará dois números gerados pelo BASIC para calcular, a 
partir do DFILE — posição inicial da tela de TV na me¬ 
mória — onde colocar um caractere aleatório no primei¬ 
ro quarto da tela. Este caractere será repetido por 4 ve¬ 
zes, em posições adjacentes e, a seguir, o mesmo grupo 
será copiado simetricamente nos outros três quartos da 
tela. Note que, ao tratar a tela de TV em linguagem de 
máquina, não existem Unhas e colunas, mas sim posições 
de memória. Por isso, não estranhe os números gerados 
pelo BASIC. 

Vamos então apresentar a subrotina seguida por um 
programa em BASIC, o qual permite colocá-la no com¬ 
putador; 


MEMÓRIA 

MNEMÓNICO 

CÓDIGO 

16514 

— 

'00' 

16515 

— 

'00' 

16516 

— 

'00' 

16517 

— 

'00' 

16518 

LD E,$ 

'1E00' 

16520 

LDHL,(D.FILE) 

'2A0C40' 

16523 

LD BCJ16514) 

'ED4B 82 40' 

16527 

ADD HL, BC 

'09' 

16528 

LD BC, (16516) 

'ED4B8440' 

16532 

SBC HL, BC 

'ED42' 

16534 

CALLTV4 

'CDC940' 

16537 

LD BC, (16516) 

'ED4B8440' 

16541 

ADD HL, BC 

'09' 

16542 

ADD HL, BC 

'09' 

16543 

CALL TV4 

'CDC9 40' 

16546 

LDHL, 758 

'21F602' 

16549 

LDBC, (16514) 

'ED4B8240' 


Flavio Rossini 


16553 

SBC HL, BC 

'ED42' 

16555 

LD (16514), HL 

'228240' 

16558 

LDHL,(D.FILE) 

'2A0C40' 

16561 

LD BC, (16514) 

'ED4B8240' 

16565 

ADD HL, BC 

'09' 

16566 

LD BC, (16516) 

'ED4B8440' 

16570 

SBC HL, BC 

'ED42' 

16572 

CALLTV4 

'CDC940' 

16575 

LD BC, (16516) 

'ED4B8440' 

16579 

ADD HL, BC 

'09' 

16580 

ADD HL, BC 

'09' 

16581 

CALL TV4 

'CDC940' 

16584 

RET 

'C9' 

** SUBROTINA TV4 *• 


16585 

PUSH HL 

'E5' 

16586 

LD(HL),E 

'73' 

16587 

INC HL 

'23' 

16588 

LD(HL),E 

73' 

16589 

LD BC,32 

'01 2000' 

16592 

ADD HL, BC 

'09' 

16593 

LD(HL),E 

73' 

16594 

INC HL 

'23' 

16595 

LD (HL),E 

73' 

16596 

POP HL 

'El' 

16597 

RET 

'C9' 


OBS.; Na memória 16519, $ representa o caractere que 
será enviado pelo BASIC. A& coordenadas calculadas pe¬ 
lo BASIC, são colocadas nas memórias de 16514 até 
16517. 

Este programa tem 84 bytes (se incluirmos os dados) 
e será colocado dentro de uma instrução REM, que deve 
estar obrigatoriamente na linha 1. Assim, comecem a re¬ 
servar pelo menos 84 bytes de memória na linha REM: 

iSREH eedeedodeoeoeeodeeeease 

00080000800000000000000009000^0 

00080000000000000000000008000 

(84 ou mais caracteres quaisquer) Figura 2 


Feito isto, apresentaremos um pequeno programa que 
lhes possibilitarão colocar a subrotina em ASSEMBLY, 
dentro do REM: 
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1 REM 00000000000000600000000 
00000000000000006000000000000000 
00000000000000000000000003000 
5 UET ü = 16514. 

10 UET 0$="" 
ate IP n*="“ THEN INPUT 
se IF n* = ''P“ THEN STOP 
S5 UET X = 16«CODE R$-i-CODE R$(S) 
-4.76 

30 POKE Ü,X 
35 SCROUU 

4.0 PRINT "HEM. "ju»;” ".iRÇÍ TO 

o I • •• ... V 

4.5 UET*ú = ul + l 
50 UET R$=R$(3 TO > 

55 GOTO 15 

Figura 3 

Após colocar o REM e o programa acima, no compu¬ 
tador, basta teclar RUN e NEW LINE e começara digi¬ 
tar os códigos da subrotina em ASSEMBLY, seguidos 

de NEW LINE: 

•W NEW LINE 
'00' NEW LINE 
'00' NEW LINE 
'00' NEW LINE 
'1E00'NEW LINE 
'2A0C40' NEW LINE 


'73' NEW LINE 
'EV NEW LINE 
'Cg' NEW LINE 

Neste ponto, a última linha da tela deverá estar indi¬ 
cando: 


MEM 16597 


C9 201 


Estes caracteres correspondem à memória onde está 
sendo colocado o código {C9) e seu correspondente 
decimal (201). Digitando agora a letra P e NEW LINE, 
o programa pára. Façam LIST e NEW LINE para verem 
o que acontece com o REM ... 

Vamos ver agora, o programa em BASIC que utiliza a 
subrotina ASSEMBLY para gerar o caleidoscópio. Este 
programa produzirá em média, um terço de caracteres 
normais; um terço em vídeo reverso e um terço de espa¬ 
ços em branco, como demonstramos abaixo: 



‘ 1 REM B " e «EfiRND G03ÜB TfcRND 
«K GOSÜB ?^ND GOSUB PILN TRN RND 
GCSU8 '?^NC»«kUN TRN RND5 PUOT ■ 
GOSUB TfcRND G05UB PI6b^NDE£RND 
GOSUB ?fcRND«s GOSUB T^ND GOSUB P 
lUN TRN RNO GOSUB TY^NDwtUN TRN 
RNDTRN FRST '?7?*4. ■«'?7? UPRINT TR 

REM ♦* CmUEIDOSCOPIO i» 

REn FLRUIO R05SINI - 1GS3 
5UOW 
RRNO 

í-pT <6*RND> 

Poi^E^íllflí^ í6,RND> 

POKE 16514.,X-2S6»INT CXy2SS 

POKE 16Sis,INT (X.^256) 

= (192*RNDí 

2 >63 RND Z<12S THEN UET 

biío^ír” 

Figura 4 


) 


10 

15 

20 

2S 

30 

35 

4.0 

4-5 

50 

55 

:=:© 

60 

65 

70 


Execute os programas — aperte RUN e NEW LINE. 
Se modificarmos convenientemente as linhas 50 e 55, 
poderemos obter um caleidoscópio que utiliza apenas 
caracteres gráficos: 

50 LET Z = INT (17í^RND) ^12S*INT 
(2^RND) 

55 IF Z>10 OR Z>138 THFN l-ET Z 

s0 

Figura 5 

Uma outra possibilidade para obtenção do caleidos¬ 
cópio é reduzir a geração de espaços em branco, supri¬ 
mindo a linha 55 e alterando a linha 50 para: 

50 LET Z=:INT (11*RND) -1-126 
(2«RND) 

Figura 6 

Ou ainda para tornar a tela menos carregada, utilizem 
a seguinte linha: 


50 L-ET Z = INT (10«RND)-M 

Figura 7 

Para tirar uma cópia da tela na impressora basta digi¬ 
tar "Z", após introduzir a linha: 

66 IF INKEY4=:‘*Z** THEN COPY 

no programa original. 



.. . Picture yourself in a boat on a river, 
With tangerina trees and mar ma!ade skies 
Somebody calls you, you answer quite slowly 
A giri with kaieidoscope eyes ... 

'"Lucy in the sky with diamonds" 
John Lennon & Paul McCartney -1967 
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0 programa a seguir tem por finalidade ajustar uma ^ 
equação, — cuja forma genérica é —: 

Y= C-H AiX +AjX' + ... + AnX" 

a um conjunto de pares de valores dados, obtidos na 
maior parte das vezes por medições de campo ou labora¬ 
tório. 

Na equação dada, temos: 

C = Constante 
Y = Variável dependente 


REGRESSRO DE ORDEM N 

NUMERO DE PRRES DE PONTOS'? X0 


X (1) =? 10.5 

X C2) = 12.8 
X C3) = 17*34. 

X (4.) = 20.78 
X (5) = 24.. 11 
X t6) = 27.02 
X C7) = 31.87 
X (8) = 4.2.63 
X = 50.0 
X(lO)= 60.08 


Y(1)= 23.7 

Y (2) = 30.84. 

Y (3) = 4.2.01 

Y (4.) s 4.7.12 
Y(5)= 60.73 
Y(6)= 71.35 

Y (7) = 82.4.2 

Y C8) » 01.58 

Y CO) = 02^33 
Y(10)= 05.15 


GRRU DR E0URCR07 




A| , A 2 , . . ., An = coeficientes da variável in- Figura 1 
dependente X, X^.X". 


Resultados: 






A seguir, apresentamos um exemplo da variável inde¬ 
pendente por duas variáveis, sendo X a variável indepen¬ 
dente e Y a variável dependente: 


X 

Y 

10,50 

23,70 

12,80 

30,84 

17,34 

42,01 

20,78 

47,12 

24,11 

60,73 

27,92 

71,35 

31,67 

82,42 

42,63 

91,58 

50,90 

92,33 

60,08 

95,15 


( CONSTRNTE: 18.84 ^ 

COEF !■ GRRU: 1.5 

COEF DETERM R2: 0.87 

rNT5RPOl_RCRO: (ENTRE O PRRR STQP) 

X= 26.12 
Y= 58.08 

X= 0 

U. QUER RODRR OS MESMOS DRDOS 
COM NOUO GRRU DE EOURCRO (S/N)7 

_ J 

Figura 2 


Pede-se para determinar a equaçâío de grau 1 e de grau 
2, que ajusta aos pares de valores da tabela. 

O programa foi elaborado de forma coloquial, nâío de¬ 
vendo ocorrer dificuldades no seu uso. 

A primeira pergunta indaga sobre o número de casas 
decimais desejadas na apresentação dos resultados. 

Informe, por exemplo, 2. 

A seguir informe o número de pares de pontos, no ca¬ 
so 10, introduzindo os mesmos. 

Última informação requerida: grau da equação?; in¬ 
forme 1. 


Para permitir pesquisa da equação (grau) que melhor 
se ajusta aos dados, dotou-se o programa da facilidade 
de novo processamento, com os mesmos pares de valores 
X, Y, sem a necessidade de reintroduzí-los, o que se tor¬ 
na extremamente vantajoso quando a quantidade de va¬ 
lores for alta. Responda S (sim) à pergunta: 

"Você quer rodar os mesmos dados com novo 
grau de equação (S/N)?" 

Grau da equação? 2 


8 MICROHOBBY 



















Resultados: 

CONSTRNTE: -18.92 

COEF !■ GPRU : 4.. 31 

COEF 2* GRRU: -.04. 

COEF DETERM R2: 0.99 

XNTERPOI-RCRO: (ENTRE 0 PRRR STOP> 
X~ 

Figura 3 

Nota-se, pela comparação dos dois valores de R2 que 
a equação de grau 2 se ajusta melhor aos dados, o que 
também pode ser comprovado traçando-se gráficos das 
mesmas, com os valores de X e Y. 

0 processo acima, poderá ser estendido até graus 5 ou 
6 da equação. Lembramos que, à medida que sobe o 
grau da equação a precisão dos resultados decresce, fato 
gerado pelo número de casas decimais com que é efetua¬ 
do 0 processamento. Não confundir com as casas deci¬ 
mais fixadas anteriormente pelo usuário e que foram uti¬ 
lizadas única e exclusivamente para a apresentação dos 
resultados e não para o processamento. 

A regressão linear é um caso particular da regressão de 
ordem N, onde o grau da equação foi fixado em 1. (Veja 
0 exemplo anterior). 


1390 IF D<=6 THEN GOTO 14.50 
14.00 SCROI.U 
14.10 PRINT 
14.20 SCROLU 

1^30 PRINT “HRIOR GRRU «OMITIDO: 

14.40 GOTO 1330 
1450 SCROLU 
1460 PRINT 
1470 SCROLL 

1480 PRINT "INFORME O NUMERO DES 
EUfiDO DE” 

1490 SCROLL 

1500 PRINT "CRSRS DECIMfilS NR RP 
RESENTRCRO"; 

1510 SCROLL 

1520 PRINT “DOS RESULTRDOS: 

1530 INPUT H 
1540 PRINT H 
1550 PRUSE 160 
1560 CLS 
1570 FRST 
1580 LET U=:10««H 
1590 DIM R(2«^D-<-l> 

1600 DIM R (D-l-lj.D-l-2) 

1610 DIM T{D-f2) 

1620 FOR 1 = 1 TO 2«D-i-l 

1630 LET R(I)=0 

1640 NEXT I 

1650 FOR 1=1 TO D-H 

t.660 FOR U = 1 TO D-l-2 

1670 LET R(I^U)=0 

1680 NEXT U 

1690 NEXT I 

1700 FOR 1=1 TO D+2 

continua 


1800 CLS 

lOlO REM REGRESSRO ORDEM N 

1020 LET Fí = "(INT ( (U-í-0 . S/U) *UJ > 

y\J“ 

1030 SCROLL 

1040 PRINT "REGRESSRO DE ORDEM N 

1050 SCROLL 
1060 PRINT 
1070 SCROLL 

1080 PRINT "NUMERO DE PRRES DE P 
ONTOS7 

1090 INPUT N 

110O IF N<a THEN GOTO 1090 

1110 PRINT N 

1120 SCROLL 

1130 PRINT 

1140 DIM X(NJ 

1150 DIM Y(N) 

1160 FOR 1=1 TO N 
1170 SCROLL 

1180 PRINT "X(”;l;">= "; 

1190 INPUT XÍI) 

1200 PRINT X(1J^ 

1210 IF X(I)<0 THEN GOTO 1210 
1220 PRINT ”Y(“;l:“)= 

1230 INPUT Y(IÍ 
1240 PRINT Y(I> 

1250 IF Y(l)<0 THEN GOTO 1280 

1260 NEXT 1 

1270 GOTO 1330 

1280 CLS 

1290 PRINT 

1300 PRINT "RUUSTE SISTEMR DE CO 
ORDENRDRS PRRR OBTER COORDENRD 
RS X E Y POSmURS.” 

1310 PRINT "DIGITE ""RUN”” PRRR 
REINICIRR." 

1320 STOP 
1330 SCROLU 
1340 PRINT 
1350 SCROLL 

1360 PRINT “GRRU DR EOURCROT "; 
1370 INPUT D 
1360 PRINT D 



LIGUE-SE Ã 
INFORMÁTICA 


FAÇA COMO 0$ 
FUNCKMlAiriOS DA 
ALCAN. XEROX. 
SEARII. COf AS. 
NfTELfA. DARUNC. 
AIR SERVICE: 


MATRfCUU SE NA 
COMPUTADORES. 
CURSOS DE 


BASIC e COBOL. 

• Número limitado de alunos por 
classe * 1/3 de todas as aulas com uso 
direto dos computadores, inclusive nos cursos de 
Cobol • Professores altamente qualificados • Cursos 
apostilados e apresentados com transparências • Modernas 
instalações com vários equipamentos Dtsmac, Prsláfica, 
Sysdata entre outros • Preços extremamente acessíveis. 



COMPUTADORES 


A NOVA MANEIRA DE 
• APRENDER A PROGRAMAR 


NÚCLEO I 

Av.PacMmbú. 1.280 
Fones: 66.7656/66.1513 

k_ 


NÚCLEO II 

R.TomAs Carvalhal. 380 
(Próximo Estaçio Metrô Paraíso) 
Fone: 570.6097 

_—_ / 
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1710 L.ET T ( I) =0 

172© NEXT I 

1730 LET RC1)=N 

174.0 FOR 1 = 1 TO N 

1750 FOR U=2 TO 2i^D + l 

1700 LET n (U) =R CU) +X ( I) CU-1) 

1770 NE>rr U 

1780 FOR K=1 TO D+1 

1790 LET R CK^D+2) =:T (K) -l-Y Cl) Cl) 
CK-1) 

1800 LET T (K) =T CK) +Y ( I) ( I) (K 
- 1 ) 


1810 

1820 

1830 

184^0 

1850 

1800 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

194.0 

1950 


LET T (D+2) =T tD+2) +Y(I) 

NEXT I 

FOR U = 1 TO D + 1 
FOR K = 1 TO D + 1 
LET RCU,K)sRCU+K-l) 

NEXT K 
NEXT ^J 

FOR U = 1 TO D + 1 
FOR K=U TO D + 1 

IF R(K^U)<>0 THEN GOTO 1970 

NEXT K 

SLOU 

SCROLL 

PRINT -NRO HR SOLUCRO UNICR 


1900 GOTO 2010 
1970 FOR 1=1 TO D+2 
1980 LET S=R(U.I) 

1990 LET R (U^ X) =R (K.. I) 

2000 LET RCKj.I)=S 

2010 NEXT I 

2020 LET Z = l/R(Uj.U) 

2030 FOR 1=1 TO D+2 
204.0 LET R CU^ I) =Z+R (Uj. 1) 

2050 NEXT X 

2000 FOR K=1 TO D+1 

2070 IF K=U THEN GOTO 2120 

2080 LET Z=-R(K,U) 

2090 FOR 1=1 TO D+2 

2100 LET R CK . I) =R CK^ I> +Z+R tu., X) 

2110 NEXT I 

2120 NEXT K 

2130 NEXT U 

214.0 SLOU 

2150 SCROLL 

2100 PRINT 

2170 SCROLL 

2180 PRINT -CONSTRNTE: . 

2190 LET U=R(l^D+2) 

2200 PRINT URL F^ 

2210 FOR U=1 TO D 
2220 SCROLL 

2230 PRINT ••COEF - ; U : GRRU * “ 

224.0 LET U=R (U + l^D*+2*) 

2250 PRINT URL F$ 

2200 NEXT U 

2270 SCROLL 

2280 PRINT 

2290 LET P=0 

2300 FOR U=2 TO D+1 

2310 LET P=P+R (U j, D+2) + CT (U) -R (U) 

( 1) y^N) 

2320 NEXT U 

2330 LET 0=T CD+2) -T ( 1) ++2.^N 

2340 LET Z=0~P 

2350 LET I=N-D-1 

2300 SCROLL 

2370 PRINT 

2380 LET U=P/Q 

2390 SCROLL 

2400 PRINT '‘COEF DETERM R2: . URL 

2410 SCROLL 
2420 PRINT 
2430 SCROLL 

24^0 PRINT •• INTERPOLRCRO: CENTRE 
O PRRR STOP) •• 

2450 SCROLL 

2400 PRINT 

2470 LET U=RCl^D+2) 

2480 SCROLL 
2490 PRINT “Xs •• 

2500 INPUT X 
2510 PRINT X 


2520 IF X=0 THEN GOTO 2010 

2530 FOR U=1 TO D 

254© LET U=IJ+R CU + 1 . D+2) +X + itU 

255© NEXT U 

2500 SCROLL 

257© PRINT ••Y= ”; URL F$ 

2580 SCROLL 
2590 PRINT 
2000 GOTO 247G 
2010 SCROLL 
2020 PRINT 
2030 SCROLL 

2040 PRINT •’U- OUER RODRR OS MES 

MOS DRDOS- 
2050 SCROLL 

260© PRINT •‘COM NOUO GRRU DE EOU 

RCRO CS/N)7*’ 

207© SCROLL 
2080 PRINT 

2090 INPUT 

270© IF 01i=*-S** OR 0$ = "SIH-‘ THEN 
GOTO 1350 

2710 SCROLL 

2720 PRINT "U. OUER RODRR O PROG 

RRMR COM- 

2730 SCROLL 

2740 PRINT -NOUOS DRDOS CS/N)7- 
2750 INPUT 0$ 

2700 IF 0$=-S- OR 0$=-SIM- THEN 
RUN 

2770 STOP 

2780 SRUE -REGRESSRO DE ORDEM 
2790 RUN 

2800 STOP 


O 
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Localizar astros, nebulosas, galáxias ou qualquer obje¬ 
to no firmamento, nem sempre é uma tarefa fácil para 
os astrônomos amadores. Às vezes, por nâío estarem bem 
familiarizados no reconhecimento das constelações e em 
outras devido à pequena luminosidade destes astros, o 
que dificulta ou até impede a sua localização visual. 

Este programa é uma útil ferramenta quando se deseja 
localizar qualquer ponto na esfera celeste fornecendo, 
uma dada hora solar, à hora sideral correspondente. 

Para aqueles que não estejam bem familiarizados com 
os elementos usados no cálculo, bem como sua termino¬ 
logia, aqui vão algumas explanações: 

O tempo necessário para o Sol cruzar 2 vezes conse¬ 
cutivas um determinado meridiano é chamado "Dia So¬ 
lar", que é constituído, por convenção, de 24 horas 
solares. 

Quando o Sol está sobre o nosso meridiano seu ângu¬ 
lo horário, H, é nulo e nosso relógio marca 12 horas ou 
meio dia. Matematicamente podemos escrever: 

t= H •H2 

onde: 

t = tempo solar local 

H = ângulo horário do Sol medido em horas solares. 

Em analogia à hora solar pode-se definir a Hora Side¬ 
ral. O dia sideral é o intervalo de tempo decorrido entre 
duas passagens consecutivas de qualquer estrela por um 
determinado meridiano e, tem por convenção 24 horas 
siderais. Mas os astrônomos não usam, qualquer estrela 
para medir a Hora Sideral. Existe um ponto fictício cha¬ 
mado Ponto Vernal ou Ponto -y (gama) e, é através do 
ângulo horário deste ponto que se mede a Hora Sideral, 
com uma diferença em relação ao tempo solar; não se 
adicionam 12 horas ao ângulo horário do ponto vernal. 
Matematicamente podemos escrever: 

T= H 

onde: 

T = tempo sideral 

H = ângulo horário do ponto vernal medido em horas 
siderais. 


PROGRAMA DO LEITOR 


HORA SIDERAL 

Fernando L. Foglieno 

É fácil constatar-se que o dia sideral é cerca de 4 nni- 
nutos menor que o dia solar. Desta forma, o ponto ver¬ 
nal e todas as demais estrelas cruzam o meridiano de um 
determinado local aproximadamente 4 minutos mais ce¬ 
do que no dia anterior (movimento anual da esfera ce¬ 
leste). 

Para se localizar um ponto qualquer na esfera celeste, 
os astrônomos criaram um sistema semelhante ao siste¬ 
ma de coordenadas geográficas (longitude e latitude), é 
o chamado Sistema Equatorial de Referências. Neste sis¬ 
tema o astro possui, analogamente ao sistema geográfi¬ 
co, duas coordenadas, a saber: Ascençâo Reta e Declina¬ 
ção. Para melhor se compreender estes elementos, pode¬ 
mos fazer uma analogia entre Ascençâo Reta e Longitu¬ 
de Geográfica e, Declinação e Latitude Geográfica. Va¬ 
mos definir então, o que significam estas coordenadas: 

Ascensão Reta a — é a distância em ho¬ 
ras siderais, contadas a partir do ponto vernal, sobre o 
Equador Celeste, ao Círculo Horário de um astro qual¬ 
quer no sentido oeste-leste. Varia de (2 a 24 horas. 

Desta definição vemos que o ponto vernal é a origem 
das ascensões retas, daí a necessidade de localizá-lo cal¬ 
culando a Hora Sideral. 

Declinação ô — é a distância em graus, 
medidos sobre o Círculo Horário, a partir do equador a 
um determinado astro. A declinação varia de (2^ a 9(2^ 
Norte e de 0 a'90O ao Sul. 



Dados de alimentação do micro-computador 

1. Hora Sideral a 0 Hora de Grenwich — Tempo Univer¬ 
sal HS0 — Este valor pode ser encontrado no Anuário 
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Astronômico do Instituto Astronômico e Geofísico da 
Universidade de Sao Paulo, na seção Sol, sob o título 
"A 0h T.U. HORA SIDERAL'". Este valor nos fornece a 
posição do ponto vernal, quando for 0 Hora em 
Greenwich. 

2. Longitude — E uma das coordenadas geográficas do 
ponto onde se dá a observação. E dada em horas, minu¬ 
tos e segundos. Para que se faça a conversão de graus em 
horas, basta relacionar: 24 horas — 360 graus; 1 hora — 
15 graus. 

3. Fuso Horário — E o fuso horário no qual nos encon¬ 
tramos, positivo a oeste de Greenwich e negativo a leste. 

4. Hora Local - E a hora solar na qual estamos queren¬ 
do calcular a hora sideral. 

Para São Paulo, a longitude é aproximadamente três 
horas, 6 minutos e 30 segundos e o fuso horário é de 
três horas; valor este que vale para toda a faixa Atlântica 
brasileira. 


130 

14.0 

150 

IGO 

170 

ISO 

24. 

19«e 


G05UB 30S 
L.ET HL.DE:C=D5C 

Lerr tu=hld5c^fu50 

LET DEl-TS=TU*3eS . 25 ,' 355.25 
LET T5G:=HSDEC+DEL.TS 
IP TÔG>24. THBN L-ET TSG-TSG- 

IF TSG<0 THEN l-ET TSG^TSGi-S 


203 LET TSL=:TSG-LDEC 
21G LET Rs (TSL-Xísn ÍTSL> > ^53 
220 LET B=: (R) ) «^50 

230 SLOU 

24-0 PRIIsrr RT 10 ^ 1 ,'-R HORR SIDER 
RL LOCRL E“ : - . RT 12 3 ; INT ÍTSL ) ; 
RT 12, 13; "HORRS" . RT 14 • 3; IInTT 
; RT 14. , 13; -HINUTOS- ; RT IS .3; b; RT 
16,13; SEGUNDOS'' 

250 PRINT RT 16,0; “UOCE QUEP. CR 
LCULRR R HCRfi 51DERRL LOC 

RL PRRR OUTRO INSTRNTET ,• 

Ní 

270 IF IKK5\ THEN GOTO lOO 

260 IF INKEY$=:*’N“ THEN STOP 
220 GOTO 27© 


10 PRINT RT 1.1; 


20 PRXNT RT 3.1;' 

R HORR SIDERRL R 
TEMPO UNIUERSRL:" 
30 GOSUB 300 
40 LET HSDEC=DEC 
50 PRINT RT 3.1;’ 

ONGITUDE- 

60 GOSUB 300 
70 LET LDECsDEC 
80 PRINT RT 3,1;' 

USO HORRRIO” 

90 INPUT FUSO 
110 CLS 

120 PRifsrr RT 3,1:' 

ORR LOCRL" 


INTRCDU2R 
0 HORR DE 


INTRODUZR R L 


INTRODUZR O F 


INTRODUZR R H 


300 

FRST 



31© 

PRINT 

RT 

6,l;"©URL R HORRT" 

320 

INPUT 

H 


330 

PRINT 

RT 

7,4 ; H 

340 

PRXNT 

RT 

6, i; "GURprras hxwjt 

OST" 




350 

INPUT 

M 


360 

PRINT 

RT 

9,4; M 

370 

PRINT 

RT 

le, i; "oumrros segu 

NDDS7" 



380 

INPUT 

S 


390 

PRINT 

RT 

11.4;s 

400 

LET D 

=H + 5,'6© 

410 

LET E 

=D/60 

420 

LET DEC= 

H4-E 

430 

PRUSE 

6© 


440 

CLS 




450 RETURN 


COM PREÇOS ESPECIAIS DE LAN ÇAMENTO 

EXPANSÕES LpUk 

A FORÇA INTELIGENTE PARA SEU MICRO 


lOPLAK: Placa In/Out. transforma seu micro numa 
central de comando programado, com 8 entradas e saídas 
Controla relês, motores, trenzinhos elétricos, etc. 

Preço especial: Completa Cr$ 55.000,00 

BIPLAK: Placa Bip, assegura teclagem correta por 
aviso sonoro. Pode ser programada para assinalar passagens 
de jogos, ações de programas e muito mais 
Preço especial: Completa CrS42.000,00 

CARAPLAK: Placa de Caracteres, produz os grafísmos 
que V. quer e os introduz em qualquer programa. 

É um sucesso na microcomputaçào. nos E.U.A. e na Europa. 
Preço especial: Completa CrS 65.000,00 

PLAKMÃE; Placa de conexão, permite o uso simultâneo 
de várias placas TplaK e qualquer outro periférico que se 
liqa diretamente aos micros TK (82. 83 e 85). 

Sua aquisição assegura um desconto 

direto de CrS 5.000,00 na compra de qualquer outro 

produto TplaK. 

Preço especial: Completa CrS 38.000.00 


ESTES PREÇOS SAO VALIDOS ATE 15 DE NOVEMBRO 
SÓ ATENDEMOS PEDIDOS PELO CORREIO 


Faça agora mesmo sua encomenda, usando o cupom abaixo. 

para garantir esses preços de lançamento 

Dentro de 30 dias V. recebe a mercadoria pelo Correio. 

abre a embalagem e instala ímediatamente a placa TplaK 

no seu micro. É fácil como conectar uma expansão 

de memória! Mas. para receber a mercadoria o mais 

rapidamente possível, siga as instruções abaixo: 

• Preencha o Cupom de Pedido com letra de forma legível. 

• Faça um cheque no valor da encomenda, em nome de: 

TplaK Eletrônica Indústria e Comércio Ltda. 

• "Cruze" o cheque, fazendo dois riscos paralelos. 

• Ponha 0 cheque e o cupom em' um envelope, e envie-o para 
TPLAK ELETRÔNICA Cx. Postal 452 CEP 09000 • Sto. André - SP 

• Aguarde até 30 dias para receber seu pedido pelo correio. 



Produto 

lOPLAK 

BIPLAK 

CARAPLAK 

PLAKMAE 


Quantidade 







ELETRÔNICA INDÚSTRIA E COMÉRCIO LTDA. 
Rua Cispiatina n.* 768 

Cx. Postal 452 • CEP 09000 - Sto. André - SP 


CUPOM DE PEDIDO 

A TPLAK ELETRÔNICA INDÚSTRIA E COMÉRCIO LTDA, 

Sim. peço enviar-me pelo Correio, dentro de 30 dias, os produtos abaixo: 


Total CrS; 


NOME; 

ENDEREÇO: 

TELEFONE: 

ESTADO: . 

CHEQUE N.-: 


CEP: CIDADE: 

MICROCOMPUTADOR 
VALOR: . 
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aula 5 


CURSO DE 


iZKSdlOíçZ] TK 



Nesta aula, iremos introduzir um novo tipo de racio¬ 
cínio usado para elaborar programas: trata-se de um ra¬ 
ciocínio GRAFICO que facilita a “visualização" de um 
programa'e cuja utilidade torna-se evidente" quanto 
mais complexo for o programa a ser realizado. 

Este raciocínio é denominado FLUXOGRAMA ou 
DIAGRAMA DE BLOCOS e baseia-se no fato de as¬ 
sociar, a cada idéia básica usada em programação, um 
símbolo; sendo que, os vários símbolos são interligados 
por linhas orientadas, que indicam o fluxo de execução 
do programa. Outra vantagem deste método é a sua uni¬ 
versalidade; de fato, como as idéias básicas de qualquer 
linguagem são as mesmas, uma vez feito um programa 
em diagrama de blocos, ele poderá ser facilmente "tra¬ 
duzido" para BASIC, FORTRAN, ASSEMBLY, COBOL 
ou qualquer outra linguagem, desde que ela não esteja 
estruturada (o significado deste termo não pode ser ex¬ 
plicado num curso introdutório como este). 


Até o presente, as idéias básicas vistas por nós foram: 


a. Entrada de dados por teclado: 

(BASIC = INPUT) 


b. Sa ida de dados para a tela: 

(BASIC = PRINT) 


c. Loops: 

(BASIC = FOR/NEXT) 


símbolo 



Fig. 1 



d. Instruções matemáticas utilizando 
variáveis de memória e comandos 


diretos: 

(BASIC = LET/CLS/RAND/ 
/-^/-/Etc.) 


e. Início de programa: 

f. Fim de programa: 


Flavío Rossini 



LANÇAMENTO 


PA88AQEM PARA O INTINITO 

8«n8«cion4l )ogo onde voce tentará encontrar e sair com um fabuloso tesouro em um 
complexo labirinto, guardado por terríveis polvos monstros, e com mais de 400 pas 
sos Para ajuda lo. vocè contara com algumas espadas, que garantirao sua sobrevt 
vència na luta com os monstros, e com os prisioneiros encarcerados nas varias pas 
sagens que lhe indicarao o caminho a seguir Toulmente em linguagem de maquina 
com gráficos fantasticamente animados e très niveis de dificuldade para desafia lo 
Preço Cr$ 7 000.00 

- MIDWAY - 

Uma grande guerra mundial esta sendo travada nas aguas do AUantico Vocè agora e 
o comandante do submarino atómico MIDWAY. sua mtssAo destruir todas as bases 
inimigas em aguas brasileiras Cuidado com os navios, avióes e minas espalhados pe 
los invasores Para auxilia Io poderá conur oom uma frota de navios de reabasteci 
mento, várias bases aliadas e um computador de bordo Um grande desafio com grá 
íleos e várias rotinas em linguagem de máquina Preço CrI 6 000.00 


- JORNADA NA8 E8TRELA8 


A sua nave interplanetária ENTP.EPRISE necessita livrar a galáxia dos invasores 
Klingon. e vocè. como comandante da nave. terá a árdua missáo de destrui los Um 
jogo famoso no mundo todo em uma de suas melhores yersôes pela Softkristian. com 
efeitos gráficos sensacionais Preço Crt 6 OÒÓ 0(3 


8.* dimensAo- 


Agora vooè Já pode ter um fliperama em seu microcompuUdor emS* DIMENSAOdois 
Jogos agitadíssimos para testar sua ooordenaçáo motor a Em SPACE INVADER vooè 
tem os originais invasores atacando sua nave e em ASTEROl D vocè deve pousar em um 
planeta e. para unto deverá u Itrapassar os obstácu los que vèem á sua frente tenundo 
destrui lo Grandes jogos em linguagem de máquina Preço Crt 5 000.00 


VI8I1A AO CA88INO 


Quatro grandes jogos em um sô caça níqueis, roleu. 21. e perseguiçáo faul fazem 
paru desu sensacional conjunto Todos os jogos com gráficos e rotinas em linguagem 
de máquina, para vooè que gosU de aposUr e torcer Preço Crt 5 000.00 


■ 10 joaoa EXeiXANTES PABA 1 K- 


Dez pequenos jogos para vocè incremenur e aprender basunu os efeitos de progra 
maçáo de Jogos e trabalhos com video Se vocènáodispóedaexpansáode 16 K Já pode 
rá urentreuni mento com esu sensacional fiu 8e vocè já dispòe de 16 K compre para 
incrementá los e urá excelentes Jogos Preço Crt 4 000.00 


Compre conosco de ouaiquer pane ao Brasii sem 
despesas adic*onais enviando um cneque crura 
doe nominal a KRiS Ti AN ElETft^iCA lida inèo 
piecisa visar) e garania o recebimemo de nosso 
mlormativo NOVIDADES KRiSTiAN loiaimente 
graiuito 


Rua da Lapa, 120 grupo 505 
TbIs 252 9057 232 5945 
CEP 20021 Rio de Janeiro RJ 


Todas as fitas váo em embalagem lacrada, oom gravaçáo profissional, para sva garao- 
tia. A KiistUn trocará qualquer flu que seja enviada, oom defeitos de fabricaçáo 
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ENGENHARIA 
DE SISTEMAS 
E COMPUTADORES 


Especializada em: 

• Desenvolvimento e implantação de 
sistemas (em laboratórios de análises, 
Imobiliárias, lojas,...) 

- Serviços de Consultoria 

- Comercialização de programas e 
microcomputadores (JR - SYSDATA, 

TK - MICRODIGITAL, MICRO ENGENHO, 
PROLÓGICA) 

- Cursos de BASIC e ASSEMBLER Z-dO 

• Implantação e/ou coordenação de 
cursos de programação em escolas. 


ENSICOM 

ENGENHARIA DE SISTEMAS E COMPUTADORES 



V 




R. Marquôs do Herval, 409 * 1? andar • sala 15 
for>e 33*2944 • Taubaté • S. Paulo 


g. Continuação do fluxograma, 

quando não há espaço físico: ÍO Fig. 7 

* qualquer símbolo sem ser 

I, F ou R. 

Vamos apresentar agora um Outro conceito, talvez ó 
mais importante em programação: a tomada de decisões 
por parte do computador! Esta é uma ordem que torna 
o computador capaz de decidir — baseado numa condi¬ 
ção específica — qual "caminho" seguir na execução de 
um programa. Esta característica é que faz com que o 
computador seja chamado de "máquina inteligente". 
O símbolo utilizado para tomada de decisões é o da fi¬ 
gura seguinte: 



PAUSA 


i 

CLS 

T-^ 

Fig. 9 


Note que a idéia de tomada de decisão, ao contrário 
das demais, implica em uma "entrada" e pelo menos 
"duas saídas" (todas as outras têm apenas uma entrada 
e uma saída). Surge assim, uma pequena dificuldade ao 
tentar passar este programa para o BASIC, pois as instru¬ 
ções são escritas sequencialmente, ou seja, numa única 
"dimensão". A instrução de decisão tem a seguinte 
forma; 

IF ICONDIÇAOl THEN |FAÇA ALGO| 

Fig. 10 

Caso contrário, prossiga para a próxima instrução. A 
key-word IF está na tecla U e o THEN na tecla 3. Note 
que esta estrutura é a única que permite o aparecimento 
de duas key-words numa única instrução; de fato^ após o 
THEN, o cursor volta a indicar Q . 

Vamos então ao nosso programa: 



Fig. 8 

Para exemplificar, façamos um programa que "per¬ 
gunte" um número, coloque-o na variável N e escreva na 
tela BELEZA, se o número for maior do que 100 e 
ALEGRIA, em caso contrário. Este seria o FLUXO- 
GRAMA; 


lO 

PR INT 

'•FSCOUHR UH NUMERO".. 

20 

IlsiPUT 

N 

30 

PR INT 

N 

4.0 

PR INT 


50 

IF N> 

100 THEN GOTO 100 

60 

PR INT 

"RUSGRIR" 

7© 

PRU5E 

15© 

60 

CUS 


90 

GOTO 

IQ 

100 

PR INT 

"BEL.EZR" 

110 

GGTO 

7-0 


Fig. 11 
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Na linha 50 o TK toma a decisão: se N > 100; caso 
contrário, prossegue para a linha 60. (O símbolo > está 
na tecla M). 

Perceba como é mais simples normalizar o programa 
em diagrama de blocos. Note que o GOTO não tem sím¬ 
bolo especial; ele corresponde à uma linha orientada. 
Vale a pena salientar também que não é necessário in¬ 
cluir detalhes nos fluxogramas: por exemplo, no progra¬ 
ma anterior o comando de pular linha, não foi incluído. 
Apenas as idéias principais devem ser "desenhadas”; isto 
facilita a visualização. 

Antes de continuar com mais exemplos de utilização 
do fluxograma, vamos apresentar mais duas instruções. 
O TK tem duas velocidades de trabalho: uma lenta 
(SLOW) e outra rápida (FAST). Quando ele opera em 
SLOW, ele se preocupa em executar o programa e, ao 
mesmo tempo, mostrar os resultados na tela; em FAST, 
ele "esquece" a tela e os resultados só são apresentados 
durante uma PAUSA, ou no final do programa. Natural¬ 
mente, cada uma tem suas vantagens e tudo depende de 
cada caso. Quando o TK é ligado ele automaticamente 
opera em SLOW. No entanto, para digitar um programa 
é mais conveniente usar a velocidade mais rápida; de fa¬ 
to experimente digitar: 

UET X-3.234^678901.2S4.5&7ase 

Fig. 12 


A seguir, digite FAST (shift F) e NEW LINE e repita 
a operação acima: (QBS.; Para entender bem estes co¬ 
mandos, execute os programas dados na aula 3 em 

SLOW e em FAST). 

Vamos então fazer um programa que "chuta" um nú¬ 
mero; você terá que adivinhá-lo no menor número de 
tentativas possíveis. 


L/yKOSrARA TK, KEZ, CE 


r 

TRINTA JOGOS 

INCLUINDO PROGRAMAS EM CÓDIGO LIS 
TADOS POR IMPRESSORA 

JOGO DE DAMAS, LABIRINTO, GUERRA 
NAS ESTRELAS, ENTERPRISE,PAREDÃO, 
DEMOLIDOR, VELHA, pASSINO, ROLETA 
RUSSA, CORRIDA DE CAVALOS, GOLF, 
VINTE E UM, CUBO MÁGICO,SENHA,BAN 
CO IMOBILIÁRIO, BOMBARDEIO, SOM 
POR SOFTWARE, ETC.... 

LANÇAMENTO CR$ 4.000^00 

APLICAÇÕES SÉRIAS 

FOLHA DE PAGAMENTO, BALANCETE,CON 
TAS A RECEBER, A PAGAR, CORREÇÃO 
MONETÁRIA DAS CONTAS DO BALANÇO, 
CORREÇÃO DAS CONTRIBUIÇÕES DO I. 
A.P.A.S., CADASTRO DE CLIENTES , 
CONTA BANCÁRIA,TABELA PRICE,ESTA¬ 
TÍSTICA, CORREÇÃO DE PROVAS,EDITOR 
DE TEXTOS, RAM TOPER , SUB-ROTIN.AS 
EM CASSETTE, CHAINING PROGRAMAS, 
CONTANDO OS BYTES DAS LINHAS, DO 
PROGRAMA, DAS MATRIZES,ECONOMIZAN 
DO MEMÓRIA, ETC... ETC... 

CR$ 4.800,00 



Figura 13 

continua 


45 PROGRAMAS 

ARQUIVOS,ESTOQUE, PLANO CONTÁBIL , 
AGENDA TELEFÔNICA,INVASORES,APAGUE 
A TRILHA, CAÇA AO PATO, JOGO DA VE 
LHA, FORCA, DADO, TABELAS, TABUADAS, 
CONVERSÃO DE COORDENADAS, MÉDIA,FI 
BONACCI,PROGRESSÃO, BIORRÍTMO , RE 
NUMERADOR DE LINHAS EM CÓDIGO,ETC. 

73 EDIÇÃO Cr$ 4.000,00 


MICRON 

ELETRÔNICA COMERCIO E INDUSTRIA LTOA 
Av S Joac ”*4 ^eiefone Z2 4194 • S. Jose dos Campos 
Est. de Sao Paulo 
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o que, em BASIC, ficaria: 

le RRND 

IS LET XsrINT (3.0«RND) +1 
30 PRINT "RDIUINHE UM NUMERQ l> 
E 1. R 1.0 OUEEU UOU CHUTRR" 

30 UET 1=1 
4-0 INPUT R 
50 Cl_S 

60 IF R>X TMEN PRIhTT "O NUM, Q 
UE EU CHUTEI E < DO OUE “.fl 

70 IF R<X THEN PRINT "O NUM. O 
UE EU CHUTEI E > DO OUE "CR 
60 IF R<^X THEN GOTO 100 
90 GOTO 130 

100 PRINT "TENTE OUTRR UEI" 

110 UET 1=1+1 
ia0 GOTO 4^0 

130 PRINT "UOCE RCERTOU EM "Cl; 

" TENTRTIURS" 

Execute o programa! Perceba o uso da variável I 
como "contador" de tentativas. 0 símbolo < > está na 
tecla T e 0 símbolo < está na tecla N. 

Este programa poderia ser escrito mais "elegantemen¬ 
te", eliminando a linha 90 e substituindo a linha 80 por: 

80 IF R=X THEN GOTO 130 

Figura 14 


CURSOS: 

Introdução à informática 
Programaçõo em linguagem basic 
Programaçõo estruturada 
Microcomputadores - conceitos e recursos 
Preços especiais para grupos fechados 
(empresas, associações, escolas, etc.) 




AD DATA 

Comércio e Serviços de Informática 

Microcomputadores pessoais, 
profissionais e empresariais 
Desenvolvimento de aplicoções específicas 
(engenharia, medicina e odontologia) 

Consulte a lista de software AD DATA 


SHOW ROOM: 

Ruo Amólio Noronho, 181 - Pinheiros - CEP 05410 - 

Tels.: (011) 853-7209/282-0562 


SP 



CURSOS DE PROGRAMAÇÃO 

ípara crianças a adultos) 

Vy-v^ 

SÓ AULAS PRÁTICAS 

MÉTODO APRENDA - FAZENDO 

Rua Paraíbuna, 80 - (ao lado da Furrdação) 


SÃO JOSÉ DOS CAMPOS 
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PROGRAMA DO LEITOR 


CABO COAXIAL 

ou ANTENA 'A e ‘A ONDA. 


Sinésio Amorim Filho 


Este é um programa simples, compatível aos micros 
de 1 K byte , onde o radioamador ou projetistas de ante¬ 
nas podem calcular rapidamente o múltiplo de onda pa¬ 
ra cálculo do comprimento do cabo coaxial a ser usado 
em uma estação transceptora e até mesmo o compri¬ 
mento de uma antena para 1/4 ou 1/2 onda. é um pro¬ 
grama de acesso rápido, onde a máquina questiona o 
operador sobre qual o serviço a ser executado — utilizan¬ 
do-se de uma linguagem comum, e lhe responde 
resultando deste diálogo, um bate-papo entre operador 
e máquina. 

Logo após você ter passado o programa, pressione o 
RUN e NEW LINE e aparecerá um cabeçalho do progra¬ 
ma, seguido da linha abaixo de uma pergunta: "Você 
quer o cálculo do cabo ou antena?". Dependendo de sua 
necessidade, digite um ou outro, mas observe o seguinte: 
se você digitar algo diferente de cabo ou antena, a má¬ 
quina rejeitará e imprimirá o seguinte: "Você digitou er¬ 
rado, digite CABO ou ANTENA". Num determinado 
passo do trabalho, a máquina perguntará a freqüência 
a ser calculada, na qual deverá ser digitada apenas a fre¬ 
qüência direta, pois a máquina já está programada para 
trabalhar em MHz. Exemplo: Para dois metros, deverá 
ser digitado apenas 144 ou no caso, uma freqüência es¬ 
pecífica 144.75. Se você digitar 144000 a máquina en¬ 
tenderá 144Ghz. 

Observaçáb: Após ter digitado qualquer resposta ao 
computador, sempre pressione NEW LINE. 

Agora Mãos à Obra ... 


C RCH 
983 •• 

10 PR 


'SlNESIO RHORXH FILHO 1 



-UOCE OÜER O C 
DO CRBO OU R 


ao PRXNrr 
30 PRXNT 
4.0 PRINT •• 

RLCUL070- 
NTENR?*' 

50 XNPUT R0 

55 PRINT 

56 CLS 

60 XF R0«**CRBO** THEN GOTO 100 
65 XF R(«**ANTEHR‘* THEN GOTO 05 
O 

70 XF R»<>*'CRBO^RNTENR" THEN G 
OTO 000 

75 CLS 

76 PRXNT 

77 PRINT 

lee PRINT ••OK...UOCE OUER O CRL. 
CULO OO CRBO“ 
lei PRXNT 
lea PRXNT 

LXa PRXNT "CMJRl. R EREQUENCIRT** 
Ifie XNPUT X 

lai ct-s 


130 PRXNT "-PRRfi R PREOUENCXR D 
E X; "HHZ. . .*• 

135 LET ussee/^x 
14.0 LET ZsU*.66 
14.5 LET P-Z/^A 

14.8 PRXNT 

14.9 PRXNT 
150 PRXNT 
155 PRXNT 


ETROS’* 

165 PRXNT 


..O FRTOR E ••;P;*’ M 


015 

050 


OUER HRXS RLGUH C 


THEN GOTO 40 
THEN GOTO 155 


E SPERO TER Rvft» 


TCHRU . . . 

UOCE DIGITOU ERRRDO^ 
CRBO OU RNTEN 


GOTO 50 

PRXNT ••OK...UOCE OUER RNTEN 


166 

PRINT 


167 

PRINT 


168 

PRINT 


169 

PRINT 

•• OI 

RLCULOT” 


170 

INPUT 

50 

171 

CLS 

175 

IF 8» 

«••SIM** 

180 

IF 8* 
PRINT 

«••NRO" 

181 


180 

PRINT 


183 

PRINT 


1B5 

PRINT 

it 

RD07 

186 

PRINT 


187 

PRINT 


188 

PRINT 


189 

PRINT 

•• 

190 

STOP 


000 

PRINT 

“UOCE 

DIGITE 


R*' 

010 

IB** 

PRINT 

«* 


053 PRXNT 
054 PRINT 

055 PRINT '*OURL R FREOUENCIRT^* 
060 XNPUT Y 
065 CLS 

070 LET Rsl40.5/Y 
075 LET UsR/^a 
077 PRINT 
078 PRXNT 

079 PRXNT "PRRR R FREOUENCXR DE 
Y; -MHZ, . . •• 

083 PRXNT 
084 PRINT 
085 PRXNT 
090 PRXNT 

^9? 

;u; •• 

3r~ 


w 


310 


i Rí 

âàs. 


PRINT ‘‘O COMPRIMENTO E DE 

PRXNT 


E O COMPRIMENTO E DE 
•• METROS PRRR 1/0 QNDR‘‘ 

.. 


344 PRXNT 
350 GOTO 169 
355 SRUE ''CRLCULB'' 
360 RUN 
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Ao se teclar um programa em um TK82, 83 ou 85 e 
após carregá-lo em fita, sempre resta ao usuário uma 
indagação: "Como saber se todo o programa foi teclado 
corretamente ou se a transferência da fita para o compu¬ 
tador foi perfeita?" ... A verdade é a seguinte: Mesmo 
que apenas um caractere seja confundido ou apenas um 
bit alterado durante a carga, estes são motivos suficien¬ 
tes para que o programa seja executado com erro, ou até 
mesmo não rode na máquina. 


PK)TEJA SEU 
MICRO 



ZENTRANX 


ELETRÔNICA. INDÚSTRIA E COMÉRCIO LTDA. 
NO BREAK estabilizadores DE TENSAO 

Rua Elias Malifuz. 22 • CEP 04746 - Santo Amaro ■ SP 
Tala.: (011) S22-21S9 e 548-0651 


A forma que propomos para conferir o conteúdo da 
memória é a Soma Sintática (efetuada após o programa 
ter sido teclado ou carregado da fita). 

A Soma Sintática, consiste na adição dos valores de 
todos os bytes de um programa que fornecerá um total 
tal, a ser checado todas as vezes que o programa for car¬ 
regado. Nos nossos programas, a partir do número seis 
de Microhobby — passaremos a informar a Soma Sintá¬ 
tica de cada programa, que deverá ser conferido com o 
valor fornecido pelo seu computador. 

Como 0 programa que executa a Soma Sintática não 
deve alterar o conteúdo do seu programa original, opta¬ 
mos por fazê-lo em linguagem de máquina, o que nos dá 
ainda a vantagem de uma maior rapidez de execução. 
Ademais, impomos três condições para a execução de 
um programa: 

1. O programa não poderá estar em uma sentença REM, 
pois muitos programas em BASIC, utilizam subrotinas 
em máquina no REM (Endereço 16 514). 

2. O programa não estando na área de memória destina¬ 
da ao BASIC, deve ser providenciada uma maneira de 
salvá-lo em cassete. 

3. 0 programa deverá ser recolocado na memória, de 
forma a ser utilizado em 2,16 ou 64 K RAM, 

Decidimos então, colocar o programa dentro de uma 
sentença REM, transferindo-o para uma localização de 
memória escolhida acima da área reservada ao BASIC. 

Para criar sua fita com a função Soma Sintática, você 
deve executar os seguintes passos: 

1. Tecle o programa da listagem 1 para carga de código 
hexadecimal. 


Ul»TROCM - 1 

10 RCM 00000000000000000000000 
O0O0O00O00OO000OOO000OOOOOO0OOOO 

eeoooooooooo00ooo00oooooooo0eeee 

0OOOOOO 

80 LET X*»**" 

30 UCT Xaie614- 
4.0 xr xa«’"* THCN XNPUT X 0 
50 IF X|(l) THCN 8 TOP 

60 PRXNT X*(l TO 8 );** "T 

8)3476?*^^ X 4 (16*CODe $(6+Co6c XO ( 

80 LCT X«X +1 
00 LCT Xk-X$(3 TO ) 

100 GOTO 40 
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2. Execute o programa dando entrada no código hexade¬ 
cimal da listagem 2. 


CISTAOCM - a 


CD 

ec 

40 

IB 

00 

R7 

FD 

CD 

40 

7S 

40 

B0 


83 

40 

aR 

CD 

40 

CD 

00 

BB 

FD 

0C 

ai 

CD 


0P 

81 

7D 

4.0 

ED 

58 

PD 

81 

00 

00 

CD 

R9 

10 

4.0 

ED 

5B 

14. 

4.0 

RQ 

4.0 

FD 

E5 

FD 

31 

CD 

88 

0P 

Cl 

CQ 

E5 

58 

Cl 

C8 

4.E 

06 

00 

83 

18 

P8 

81 

87 

00 

04. 

4.0 

19 

FD 

81 

90 

76 

01 

FD 

74. 

08 

FD 

PD 

74. 

0D 

FD 

81 

00 

88 

4.0 

01 

38 

00 

ED 

4.8 

04. 

4.0 

C9 

S 



Em caso de erro, recomece a segunda etapa. 

3. Tecle POKE 16510,0. NEW LINE. Seu programa apa¬ 
recerá como a listagem 3 

LISTRGCM - 3 

OOSUB 7£RNO 

D.LN aRND_CLEflR FfiST CLERR S RND 

RT-- - 


LN F7... ... .. 

T COS CLERR m7> PRUSE 8B OO 

2!^2-2« CLERR B»ND CLERR *7» 

CLERR 2." CLERR 7C CLERR 7f CLERR 
8 RND8|iRND*^P GOSUB ■ GOSUB 7* R 
NDTRN 

a0 LET X*«"" 

30 LET Xb 16S14 
40 IF Xf»"” THEN INPUT XS 
52 XÍ(1)«**S" THEN STOP 

S0 PRINT X0C1 TO a);" 

7® POKE X^7iS«CODE XS-fCODE X« ( 

8 ) “*^ 70 ) 

BO LET XbX+I 
90 LET XfBX0(3 TO ) 
lOO GOTO 40 

Apague as linhas 20 a 100 e tecle: 

LISTRGEM - 4 
lO SRUE •■SOMR" 

igO^PRlNT *'SOHR SINTRTICR»*'; USR 

30 PRINT "CONFERET S/N" 

40 IF INKEY*«**S** THEN GOTO 60 
80 GOTO 40 

60 PRINT "SOHR SINTRTICR NO EN 
DERECO 

70 INPUT RTP 

80 POKE 16389,INT (RTP/2S6) 

90 POKE 163B8,RTP-INT tRTP^aSO 
1 «a8S 

lOO PRINT USR 16867 

110 IF 1NKEY*«"“ THEN GOTO IIO 

laO NEU 

4. Salve a versão final da Soma Sintática, teclando RUN. 
Assim ela estará pronta para ser usada. 

A versão gravada na fita, ao ser lida corretamente, de¬ 
verá mostrar a seguinte mensagem; 


TRN FRST 
CLERR 


I 


SOHR SINTRTICR 


assas 


Para usar esta mensagem, tecle o endereço para o qual 
você quer baixar o RTP — Ex.: "Se você tem 16K, 
30000" — o programa responderá com o mesmo valor. 
A Soma Sintática será então obtida com; 

PRINT USR (endereço que você escolheu). 


•^UVRAHIA 
SISTEMA 


8 


Av. Sáo Luiz, 153 - Lj. 6 - 1 .* Sobrek>ia • Gatería Metrópole 
Tels.: 257-6118 e 259 1503 • SAo Pauk> SP 


-SEMPRE NOVIDADES- 


1 - 0 MICROCOMPUTADOR NA PEQUENA EMPRESA - 
^ 40 PROGRAMAS PRONTOS E COMENTADOS P/ TK82C • 

_ TK8 5 - CP200 - POR CARLOS LAGROTTA FILHO. 3.800, 

^2 -30 JOGOS P/TK82 E CP200 • Deüo Santos Lima. 4.000, 

3 - PROGRAMANDO SEU COMPUTADOR - Jogos • 

Aplicativos - Utilitários. 5.200, 

4 - O MICROCOMPUTADOR NO CONSULTÓRIO MÉDICO • 

Luiz Goruaga Nascimento. 5.200, 

_^5 • GATEWAY GUIDE TO THE 2X81 AND 2X80 - 

70 PROGRAMS • Chariton. 18.850, 

^6 • THE 2X81 COMPANION • Real time gtaphics • Monitor 

Ksting • Maunder. 17.400, 

--- 7 - THE TIMEX - SINCLAIR 1000 IDEA BOOK • Ah1 . 13.000, 

8 - UNDERSTANDING MICROCOMPUTERS • Personal 

computar. 5.250, 

9 IMPLANTAÇÃO DE MICROS E MINICOMPUTADORES 

COMERCIAIS - Knight. 3.900, 

10 MICROCOMPUTADORES P/APLICAÇÕES COMERCIAIS 

Barden Jr. 5.390, 

-^11 ■ THE BEST OF SYNC • 80 Creative appiications programs. 14.500, 

12 MICROCOMPUTADORES E MINICALCULAOORAS - SEU 

USO EM CIÊNCIAS E ENGENHARIA - Royo dos Santos. 7.200, 

.^13 - GETTING ACQUAINTED WITH YOUR 2X81 • More than 

80 programs....17.400, 

14 - USER S HANDBOOK TO THE TRS-80 MOOEL III 

COMPUTER • Weber . 20.000, 

15 GETTING ACQUAINTED WITH YOUR VIC20 More than 

50 programs.15.000, 

16 NOVO ABC DOS COMPUTADORES - Lytel. 3.500, 

17 • 1001 THINGS TO DO WITH YOUR PERSONAL 

COMPUTER - Marfc.16.000. 

18 • PROGRAMMERS GUIDE TO CP/M-Libes.19.000, 

^9 TIMEX PERSONAL COMPUTER MADE SIMPLE 

Guide timex / Sinclair 1000. 5.250, 

20 INTRODUÇÃO AO VISICALC - Garbin. 3.540. 


SOLICITE POR REEMBOLSO POSTAL 
CAIXA POSTAL 9280 
CEP: 01051 - SP. 


Lembre-se agora de carregar a fita "SOMA” antes de 
teclar ou carregar seu programa. Após informar o ende¬ 
reço limite da memória utilizada, tecle qualquer tecla 
para limpar a área do BASIC. 

Convém observar que a Soma Sintática checa o pro¬ 
grama e as variáveis — caso elas existam — e portanto de¬ 
ve ser usada imediatamente após a carga do seu pro¬ 
grama. 

Em programas que iniciam rodando após a carga, é 
conveniente proceder como está especificado abaixo; 
onde XXX, YYY e ZZZ são linhas do seu programa; 

1 PRINT "SOMA SINTÁTICA = 

2 PRINT USR (endereço escolhido) 

3 PRINT "CONFIRA E TECLE NEW LINE 
PARA CONTINUAR" 

4 PAUSE 6E4 (6x10“) 

r: 

Seu Programa | 

XXX STOP 

YYY SAVE "Nome do seu programa" 

ZZZ GOTO 1 

Ao salvar seu programa, anote a Soma Sintática junto 
ao nome do programa, no rótulo da fita. Caso o progra¬ 
ma, ao ser carregado, não dê o mesmo valor, carregue-o 
novamente. q 
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TEMPO DETíEAÇAO 


Carlos Eduardo R. Salvato 


Uma das consequências da ingestão de álcool pelo ser 
humano é a perda do senso de auto-crítica: por isso rara¬ 
mente um bêbado admite que está bêbado. 

Imagine a seguinte situação; Você como anfitrião de 
uma festinha de sábado à noite. Um de seus convidados, 
visivelmente "alto", pega as chaves do carro e resolve 
voltar para casa. é óbvio que você tenta demovê-lo da 
idéia, mas ele, como está bêbado, não tem consciência 
do perigo e teima em sair. Qual a solução? pegá-lo pela 
curiosidade e desafio frente a um computador. Uma su¬ 
gestão: Desafiá-lo a medir a rapidez de seus reflexos em 
um TK. Logo o desafio vai se generalizar e todos os seus 
convidados estarão competindo para quebrar o recorde 
(Aqui na redação, a Nancy é a nossa recordista e 
já foi aclamada como um exemplo da óbvia superiorida¬ 
de feminina). O desafio proposto a todos irá permitir 
que você sirva um café sem açúcar ao seu amigo e aos 
demais convidados, dissipando assim, os "vapores etíli¬ 
cos", sempre presentes em reuniões de sábado à noite". 

Ao iniciar o programa, o computador coloca as ins¬ 
truções na tela. Digitando "S", tente começar. 


ESSE PROGRRM» URI MOSTRRR OS RE- 
SULTRDOS DE 10 TESTES DE RERCRO. 


OURNDO "S*' FOR PRESS lONRDO UM 
NUMERO RUERTORIO IRfl*RPRRECER NO 
OURDRRDO RBRIXO.ENTRE COM O NU¬ 
MERO O MRIS RRPIDRMENTE POSSIUEL 
ISSO RCONTECERR" RTE* O DECIMO 
TESTE SER COMPLETRDO. 

RPOS O GRRFICO,DIGITE NEW LINE. 


NUMERO 



Figura 1 


ele desaparece e outro algarismo aparece no quadrado. 
Ao terminar o teste, o computador apresenta os resulta¬ 
dos abaixo: 


TESTE DE RERCRO 

RESUUTRD05 :- 

+ RRPIDO ; 0.1 

+ DEURGRR : 0.4. 

MEDIR 0.245 

MEDIR + RRPIDR 
0.245 
POR NRNCY 



Se você obteve o tempo mais rápido (ou se você foi 
o primeiro), seu recorde ficará registrado por toda a 
eternidade. . . (ou seja, até o computador ser desligado). 
Você poderá registrar o recorde, gravando outra vez o 
programa em outra fita, usando o seguinte comando: 

GOTO 1070 

Após digitar o programa da listagem anexa, jogue pelo 
menos uma vez, iniciando com um RUN. A seguir, grave 
o programa em fita usando o seguinte comando; 

GOTO 1070 


No quadrado, aparecerá um algarismo de 0 a 9 e você 
deve digitá-lo o mais rapidamente possível. Acertando, 


Este programa pode ser rodado num TK82 ou TK83 
com expansão; num TK85 ou similar. 
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10 REM 
20 SL.OU 
30 L.ET Fsl00000 
4.0 DXM N(10) 

50 CL.S 
60 RRND 

70 LET 01=106000 
80 LET S=0 
90 LET R=0 

100 PRINT RT 4.. 0; -ESSE FROGRRMR 
URI MOSTRRR OS RÊ-** 

110 PRIlsrr RT 5^0; -SULTRDOS DE 1 
0 TESTES DE RERCRO.- 
120 PRINT RT 9^0;**OURNDC •••s-- 
FOR PRESSIONRDO UM*’ 

130 PRINT -NUMERO RLERTDRXO IRR 
■RPRRECER NO- 

14.0 PRINT -OURDRRDO RBRIXG-ENTR 
E COM O NU-- 

150 PRINT -MERO O MRIS RRPIDRME 
NTE POSSIUEL- 

160 PRINT -ISSO RCONTECERR» RTE 
■ O DECIMO TESTE SER COMPLETRDO 

*170 PRINT -RPOS O GRRFICO,DIGIT 
E NEU LINE.- 
130 PRINT RT 16.16; -í 
190 PRINT RT 17,16; 

200 PRINT RT 18,16;-| 

210 PRINT RT 19,16; 

220 PRINT RT 20,16;-| 

230 PRINT RT 13.5;-NUMERO 
24.0 POKE 164-37.255 
250 PRUSE 30000 

260 IF INKEY$=”S- THEN GOTO 280 

270 GOTO 24.0 

280 FOR K=1 TO 10 

290 PRINT RT 18,18;- - 

300 FOR 0=0 TO INT (RND*6G> 

310 NEXT O 

320 LET R = INT (RNDítlO) 

330 PRINT RT 18.16;R 
34-0 FOR T=0 TO 100000 
350 POKE 164-37,255 

360 IF CODE INKE>'$=R+2S THEN GO 
TO 330 



530 

590 

600 

610 

0O 


IF N(K)>5 THEN 
LET R=R+N(K) 

NEXT K 

LET R=ÍINT ((R^10O> 


LET S=NÍK) 


4 ^. 5 ) } 1 © 


Neste verão 

coloque seu filho na 
era aa informática. 

Ou deixe-o descansar 
no passado. 

• Cursos de informático especiais poro estudantes de 
1? e 2? graus 

• Cursos especiais para férias, e também aos sábados 

• Clube do Micro, equipado com os melhores 
m ícrocomputodores 

• Palestras, Conferências, Seminários 

• Biblioteca especializada 

• Programas educocionais 

• Consultoria e Assessoria Empresarial 

• Cursos especiais para microempresários 

Você pode contar com o CENADIN para mais 
Informações sem compromisso, em Sõo Paulo, 
pelo telefone 287-4716 ou via correio. 

cei\4Ndii\ 

aNTRO NACIONAL DO DESfNVOLVIMENTO DA INK>IIMÁT1€A 

Rua José Maria Lisboo, 580 • Jd. Paulista 
Tel.: (011) 287-4716 - CEP 01423 • Sõo Poulo - SP 


ENDEREÇO:, 
CIDADE:_ 


.ESTADO: 


CEP: . 


700 

710 


370 

NEXT T 


720 

380 

LET N(K) 

=T 

730 

390 

NEXT K 


74.0 

4.00 

CLS 


750 

4.10 

PRINT RT 

1,l;-TESTE DE RERC 

760 

RO- 



770 

4.20 

PRINT RT 

fü 

P 

II 

il 

II 

ii 

II 

11 

il 

II 

II 

II 

11 

II 

H 

780 

= = - 



790 

4.30 

PRINT RT 

4., 1; -RESULTRDOS : - 

DR- 

•• 



860 

4.4.0 

PRINT RT 

“-r;:;;--!; 

810 

4.50 

PRIÍ4T RT 

7,0;-+ RRPIDO : 

820 

4.60 

PRINT RT 

9,0*. - + DEURGRR : 


4.70 

PRINT RT 

12,0;-MEDIR :-- 

830 

4.80 

PRINT RT 

21.22; - . .TESTES . . 

84.0 

4.90 

PRINT RT 

5 . i9; -T- ; RT 6.19: - 

85© 

E“;rt V,19;"M”;rt 8,19;‘P“ 

360 

500 

PRINT RT 

14., 19; -S-; RT 15, 19 

870 


RT 16,19 

;-G-;RT 17,19;-5“ 

830 

510 

FOR 0=2 

TO 20 

890 

520 

PRINT RT 

0,21;--- 

900 

530 

NEXT O 


910 

54.0 

LET R=0 


920 

550 

FOR K=1 

TO lO 

93© 

560 

LET N(K) 

= ( INT ( ( r'4 ( K ) / . 32 3 + . 

94.0 

5) ) /- lOOB 


95G 

570 

IF N (K) < 

O THEN LET G=H(K) 

90© 


970 

98© 

990 

1000 

1010 


626 

PRINT 

RT 

t 

il; O 


102© 

S3© 

PR INT 

RT 

9 , 

11; S 


1030 

64.0 

PRINT 

RT 

12 

. 11, R 


104.0 

65© 

LET B 

= í INT 

( (0 + . 9) if-13J } 

lO 

1050 

660 

LET C 

= ( INT 

í (S + 1 . 1) +1G) i 


166 G 

670 

PRINT 

RT 

20 

, 17; B 


107© 

68© 

P R X-NT 

RT 

2 • 

17 ; C 


103© 

69© 

PRINT 

RT 

li 

, 17 ; < E + C jí / 2 


^09© 


LET D=(C-B).r36 
FOR 0 = 1 TO 10 
LET E=(N(O)-B)/D 
FOR Z=2 TO E+1 
PLOT 4.3-t- (2»0) ,Z 
NEXT Z 
NEXT O 

IF R<F THEN GOSUB 850 
IF R<F THEN LET F=R 

PRir>rr rt 16 , 0 ;-medir ^ .rrpi 

PRINT RT 13,5;F 

PRINT RT 20 , 1 ;-POR -;RS 

IF INKEY$<>-- THEN GOTO 4-0 

GOTO 820 
LET R=0 

LET B$=-B UOCE OBTEUE H" 

LET C$ = -HEDIR + RRPIDR*’ 

LET D$=-ENTRE COM NGME- 
LET E$=- 

PRINT RT 16,0;E$ 

PRINT RT 20.O;E$ 

FOR 0=0 TO 20 
NEXT O 
LET R=R-H 
PRINT RT 1S,0.;C$ 

PR INT RT 16,0 , B $ 

PRINT RT 20.0;D$ 

FOR 0=0 TO 20 
NEXT O 

IF R<3 THEN GOTO S9G 
INPÜT .R$ 

IF LEN R$>10 THEN GOTO 10OO 

FOR 0=16 TO 2© 3TEP 2 

PRINT RT Q,0:E$ 

r-lEXT O 

RETURN 

STOP 

SRUE -RERCRlg- 
GOTO 4.0 

srcp 
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QUEBRA-CABEÇA 



L.G.M.: 

MENSAGEM DE VEGA ? 


MENSA 

International 



A idéia de contactar civilizações de outros "mundos" 
não é recente entre os homens. Deixando de lado as 
crendices populares e as mediocridades publicitárias, a 
imaginação humana chegou a produzir muitas obras so¬ 
bre esse assunto. Clássicos Iiterárioscomo "Micrômegas", 
de Voltaire; "História Cômica dos Estados e Impérios da 
Lua e do Sol", de Cyrano de Bergerac e "Da Terra à 
Lua" de Júlio Verne são, juntamente com um grande 
número de "Science Fiction", bons testemunhos de boa 



Esta seção conta com a colaboração dos membros da MENSA INTER¬ 
NACIONAL — brasileiros e estrangeiros residentes no Brasil. 

A MENSA é uma organização sem fins lucrativos, originária da Inglater¬ 
ra e que conta com milhares de membros espalhados pelo mundo inteiro. 
Entre estes, podemos citar Itaac Aiimov, Arthur C. Clark#, Cliva Sinclair 
e o recentemente falecido R. Buckminittar Fullar (o poeta que inventou a 
Cúpula Geodésica). 

Os principais objetivos e bases de atuação da MENSA são: promover 
e encorajar o desenvolvimento da inteligência humana para benefício da 
humanidade, incentivar a pesquisa sobre a natureza e promover um am¬ 
biente socialmente estimulante para seus sócios. 


Renato da Silva Oliveira 

Também nos meios de comunicação de massa, são 
inúmeros os exemplos da procura de outros mundos, co¬ 
mo a novela radiofônica "Guerra dos Mundos" narrada 
por Orson Welles , no início do século. Esta novela te¬ 
ve maior repercussão que os "contos de fadas" cinema¬ 
tográficos "Close Encounters" e "E.T." de Steven 
Spieiberg que, por assim dizer, invadiram facilmente a 
Terra aproveitando-se da boa vontade das pessoas. 

Até mesmo o "Gran Circo EEUU" produziu, bem ao 
seu estilo, um famoso relatório sobre possíveis seres ex¬ 
traterrestres no famoso "Livro Azul" da U.S. Air 
Force. 

Como não poderia deixar de ser, os cientistas produzi¬ 
ram, também, alguns trabalhos (provavelmente os mais 
sérios e audaciosos), sobre sua velha idéia, assim que sur¬ 
giram oportunidades propícias. Desde grandes equívo¬ 
cos, como os "Canais Artificiais de Marte" e os "Littie 
Green Men (L.G.M.)" até as mensagens levadas pelas 
sondas PIONER Xe XI eVOYAGER lell. 



Para o ingresso na MENSA é necessário apenas que o candidato se 
submeta a um teste homologado pela MENSA INTERNATIONAL, supe¬ 
rando o nível médio de inteligência de 98 por cento da humanidade. 

Informaçâes a respeito, podem ser obtidas através de carta enviada para 
esta seção, no seguinte endereço: 

MICROHOBBY 

SEÇAO QUEBRA-CABEÇA 

Rua Bahia, 1049 

Cep 01244 — São Paulo 
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Provavelmente, um dos mais interessantes empreendi¬ 
mentos científicos visando a comunicação com possíveis 
sêres extratefrestres, foi a mensagem enviada ao espaço 
com 0 radiotelescópio de Arecibo em Puerto Rico (o 
maior radiotelescópio de espelho esférico do mundo, 
com cerca de 305 metros de diâmetro). 



Figura 3 


O interesse dos cientistas em contactar com outras 
(possíveis) civilizações não é gratuito. 

Apesar de altamente improvável, a pequena chance de 
sucesso justifica o esforço desprendido. Atualmente, 
através de uma equação simplificada, obtida pelo radio- 
astrônomo Frank Drake na década de 60, estima-se que 
dentre aproximadamente 200 bilhões de estreias de nos¬ 
sa galáxia, cerca de um milhão (menos de 0,001 por cen¬ 
to) têm condições de abrigar civilizações tecnologica¬ 
mente desenvolvidas. Mesmo sendo otimista e supondo- 
se que todas elas sejam "povoadas", a probabilidade de 
conseguirmos nos comunicar é ainda desprezivelmente 
pequena. 


N = R * . fg . fp . ne . fi . ft . L 

Equação de Frank Drake 


or>de: 

N = niinnero de civilizações tecnológicas da Galaxia 
R* = taxa média de formações de estrelas da Galaxia 
fg = fração de estrelas com condições de possuir sistemas plar^etárias 
fp = fração de estrelas que possuem um sistema planetário 
ne = número de plarietas habitáveis por sistema planetário 
fe = probabilidade de surgin>ento de vida num planeta 
fi = fração de planetas habitáveis com vida inteligente 
ft = probabilidade de uma civilização desenvolver tecnologia 
L = longevidade de uma civilização 


Figura 4 

De certo modo, estamos fazendo — com algumas 
desvantagens -, a vez do macaco dos versos de Sir 
Arthur Eddington, transcrito no início deste artigo. O 


CONVERSE 
COM 
PROFISSIONAl: 


SOFTWARE 

Linha completa 
de software aplicativo 
Desenvolvimento de software 
especifico para sua 
necessidade. 

Linha completa de programa 
para TK e CP-200. 


ASSESSORIA 

lAntes da escolha de seu micro, 
nos diga qual o seu problema. 
Nós o orientaremos 
na escolha do micro CERTO 
para você 
ou sua empresa. 


SHOW ROOM E VENDAS: 


CURSOS 

^BASIC I, BASIC AVANÇADO 

- Excelente material didático, 
no máximo 10 alunos 
por classe e 1 micro 
para cada 2 alunos. 


SJoflTfl SaLUTIQW 


VENHA NOS VISITAR 
AV EUSÉBIO MATOSO, 654 - CEP 05423 - SP 
BEM EM FRENTE AO SHOPPING CENTER ELDORADO 

FONE: 813-3355 


macaco pelo menos sabia que tocar música é possível, 
enquanto nós (humanos), não sabemos sequer se exis¬ 
tem outras civilizações além da nossa. 

Se você teve paciência de ler tudo até esta linha, ao 
menos justifique seu trabalho lendo ainda as que se se¬ 
guem. Você verá que tudo se relaciona ao tema de nos¬ 
so "Quebra-Cabeça" deste mês: "L.G.M. ou Mensagem 
de Vega?". 

Citamos, de passagem, o equívoco científico dos 
"L.G.M.(s)". Essa sigla surgiu para os quatro primeiros 
pulsares descobertos; L.G.M.; LGMj, LGMj e LGM 4 . 
O primeiro deles foi descoberto em meados de 1967 
por uma jovem radioastrônoma, Jocellyn Bell, através 
do radiotelescópio da Cambridge University. Esses 
"objetos" são notados, devido as intensas e regularís¬ 
simas emissões de micro-ondas que deles nos chegam 
(em geral cerca de uma por segundo). A esperança qua¬ 
se religiosa dos astrônomos em detectar vida fora da 
Terra, fez com que batizassem — oficiosamente —, as 
quatro primeiras dessas fontes, de ' Littie Green Men", 
pensando tratar-se de "sinais inteligentes". Logo, po¬ 
rém, muitos outros pulsares foram descobertos e o equí¬ 
voco "L.G.M." foi desfeito. Hoje, sabemos que os pulsa¬ 
res são provavelmente, estrelas neutrônicas em alta rota¬ 
ção. 

Essa estória ilustra, muito bem, a boa vontade e o 
entusiasmo dos cientistas em admitirem como possível 
a comunicação com civilizações extra-terrestres (se elas 
existirem, é claro!). 

continua 
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23 h 


+ 500 


SC- 


+ 40O__ ♦ 

# 


+ 300 


+ 200 


L.G.Kd. . • 

0 Quebra-Cabeça deste mês surgiu de uma estó¬ 
ria semelh^te: 

'"Um dos nossos feitores, o Sr. Nabor Rosenthall, 
construiu em seu sítio próximò à pequena*cidade de 
São Tomé, um radiotelescópjo* '"caseiro'', a qual 
tem, acoplaçlo, um TK85. No primeiro dia de*setem¬ 
bro d^te ano, precisamente entre as 21 e ^boras, 
ele rècebeu uma série de pulsos de micro-ondas, pro¬ 
venientes de um ponto do céu cujas coordenadas 


+ IQO 


+ 0o\ 


-10O 



DedSipo: 6 = N 46' 
Asce^ão Reta: O = 18 h 36' 8" 


Essas são, exataTnente, as coordenadas da estre¬ 
la (Vega). • • 

Com a intèligéncia e perspicácia características de 
nossos» leitaH|^o Sr. Nabor percebeu que, se.as- 
sociassê iMpSBIlí^os — durante os quais recebia os 
pulsos —1 (um) ê aos períodos "mudos.'^ 
entre os poins* associasse o valor 0 (zero), obteria 
um» seqüéncia de uns e ^ros, aparentemente regu¬ 
lares, que se r^etiria, mais ou menos a cada uma 
hora. 

Assim sendo, o Sr. .Nabor, por não ter ainda con- 
clusõés convirfcentes,* resolveu nos escrever para que 
pudéssemos auxiliá-lo a chegar a tal conclusão e 
também solicitdu-nos que tentássemos obter infor¬ 
mações com outros leitores, a respeito da seqüéncia: 
"se ela é ou não uma mensagem e em caso positivo, 
cfual o seu significado?", 

A .seqüéncia está listada a seguir e o Quebra-" 
Cabeça consiste em*— com o auxílio do TK -•,Tfes- 
cobrir se ela é um novo equívoco do tipo "L.G.M." 
ou se é rq|ímente uqja mensagem•"E.T.", prove¬ 
niente de Vega. Se a resposta for positiva, vocês 
devem decodi^icá-la e interpretar o seu significado. 

A ordem em que os^^j^os (0s e 1's) foram rece¬ 
bidos são indicados pelas setas no iriício e no fim da 
listagem. ^ 
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DICAS 



Aqui está, num artigo escrito por nossa analista de 
Software, a resposta da carta escrita por nosso leitor 
Fernando José Strobel, que pedia informações a respei¬ 
to de gravação de fita de dados. Um pedaço do texto da 
carta era o seguinte: "Peço que a sua revista publique 
um artigo, explicando a armazenagem de dados em fita, 
como um exemplo bem complexo, com fichas lógicas 
e fichas f fsicas". 


Para resolvermos sua dúvida a respeito das funções 
de armazenamento para o TK85, fizemos um programa 
utilizando os comandos DLOAD, DSAVE, DVERIFY 
e o mesmo pode ser feito para os comandos DHLOAD 
e DHSAVE, mas em Hi-Speed. 

Através desses comandos, é possível o armazenamen¬ 
to e a recuperação de informações numa fita cassete, 
permitindo assim, o uso de um grande arquivo de dados. 
Esses comandos são utilizados com a função USR, 
acompanhada do endereço inicial da subrotina, em lin¬ 
guagem de máquina do comando a ser utilizado. 


COMANDO 

ENDEREÇO 

FUNÇÃO DE CADA 

INICIAL 

COMANDO 

DSAVE 

8288 

Gravação do arquivo 

DVERIFY 

9816 

Verifica a gravação 

DLOAD 

8305 

Lê a fita e armazena no buffer 
indicado 

DHSAVE 

9008 

Grava na fita em Hi-Speed 

DHLOAD 

9189 

Lê a fita em Hi-Speed 


Para melhor compreensão, dividimos o programa em 
várias partes, portanto, digite todas as linhas exatamente 
como estão, porque elas formarão, no final, o seu 
programa mestre. 

O programa começa armazenando os endereços de ca¬ 
da subrotina, em linguagem de cada comando: 


PROGPRHR 1 

4- LET DSRUE=©a©8 

5 LET DUERIFY=9©16 

6 LET DLORD=3-30S 

7 LET DHSRUE=90e© 

8 LET DHLORD=9i©9 


Figura 1 

Vamos inicialmente criar uma ficha física com 10 fi¬ 
chas lógicas. Mas, o que é uma ficha física? E uma ficha 
lógica? 


AS FUNÇÕES 
"D" DO TK85 


Nancy Mitia Ariga 

Suponhamos que você deseje um arquivo com nomes 
e telefones. Um determinado nome com o seu respectivo 
telefone, formam uma ficha lógica. Um grupo de fichas 
lógicas (no nosso caso 10) formam uma ficha física. 

1 2 10 










nom€ 

telefone 

nome 

telefone 

nome 

telefone 


ficha lòçica 


fich.f...e. Figura 2 

Digitando o programa 2, você criará uma ficha física 
que, posteriormente será gravada. Cada ficha lógica, con¬ 
terá um nome com no máximo 15 dígitose um telefone 
com no máximo 8 dígitos que serão armazenados no 
buffer, formando a ficha física (6$) que poderá conter 
no máximo, 230 bytes. 

1 ficha lógica -*■ 15 bytes do nome + 8 bytes do 
telefone = 23 bytes. 

10 fichas lógicas ->■ 230 bytes 


PROGRRMR 2 

1.00B REH CRIRCRO DE FICHR FISICR 

X00S CLS 

1010 DXM B«C230} 

1030 DZM N«(15) 

1030 DIM T^£S> 

104.0 LET R=1 

1050 POR X=1 TO 10 

1050 SCROLL 

1070 PRINT "NO«E="; 

1080 XNPUT 
1090 PRIWT Ní 
110© SCROLL 
1110 PRXNT "TELEP.s"; 

1130 XNPUT T^ 

1130 PRXNT T* 

1140 SCROLL 

1150 PRXNT 

1160 LET C«=N«.fT«i 

1170 LET BS(R TO R-l-LEN C«-l) sCH 
1180 LET R=R-(-LEN C* 

1190 NEXT Z 
1300 SCROLL 

1310 PRXNT "PXCHR PISXCR COMPLET 
R * 

1313 SCROLL 

iai4 PRIKT “P/ORRURR OXGXTE CNEU 
LXNE > •• 

1330 XP XNKEY*=”" THEN GOTO 1330 

_ Figura 3 


26 MICROHOBBY 
















































Digite RUN e aparecerá na tela: 

NOMEs 


Figura 4 

Digite um nome e NEW LINE; 


NOME =M ICROHOB&V' 
TELEF.= 


Figura 5' 

Digite um telefone e NEW LINE: 

NOME =MICROHOBBY 
TELEF . =256 . S34.8 

NOME = 

Figura 6 


e assim por diante. 


Agora que você possui uma ficha física em seu buffer, 
vamos gravá-lo. Digite o programa 3, que possui o co¬ 
mando DSAVE. 


PROGRRMR 3 

aoeo REM 6RAURCRO FICHR FISXCR 

2005 CLS 

2006 PRINT "P.-GRRVRR RPERTE RECO 
RD DO GRRUR-DOR E NEW LINE" 

2007 IF INKEY*="" THEN GOTO 2007 
2010 LET Z=LEN 

2020 LET Z*="B" 

2030 LET BC=USR DSflVE 
204-0 SLOW 

2050 IF BC=0 THEN PRINT PT 7,3;" 
OK" 

2060 IF BC-c>0 THEN PRINT PT 7,3; 
"ERRO=";BC 

2070 PRINT "NOVP GRPUPCPO (S.-^NJ? 

99 

2OB0 IF INKEY*="5" THEN GOTO 200 
O 

2085 IF INKEY»="N" THEN GOTO 300 
O 

2090 GOTO 2080 

Figura 7 


Em Z está definido o número de bytes do buffer es¬ 
colhido e que será gravado. Z$ seleciona o buffer que se¬ 
rá gravado (no nosso exemplo Z$ = "B", porque em B$ 
estão armazenados os dados da ficha física). 


BC é uma variável qualquer, criada para utilizarmos a 
função USR, onde após a execução do comando 
DSAVE, será armazenado o código de reportagem. (Ver 
código de reportagem, página 29.7 do manual do TK85). 


Certifique-se de que o MIC do TK está conectado 
com 0 MIC do seu gravador, aperte o RECORD e digite 
NEW LINE. 0 comando DSAVE será ativado e a primei¬ 
ra ficha física estará sendo gravada. 


Se a subrotina DSAVE foi realizada corretamente 
(BC = 0), aparecerá na tela um "OK". Caso contrário, o 
código de reportagem aparecerá na tela (consulte o ma¬ 
nual do TK85, página 29.7). 

IMPORTANTE: Após o término de cada comando de 
armazenamento, devemos retornar ao modo SLOW, por¬ 
que 0 computador entra no modo FAST com o início da 
subrotina, em linguagem de máquina. 

Agora que você gravou em sua fita cassete, certifique- 
se que sua gravação foi feita corretamente, digitando o 
programa 4. 


PROGRRMR 4- 

3000 REM UERIFICRCRO DP GRRURCRO 
3005 CLS 

3010 PRINT "PyUERIFICflCRO REBOBI 
NE P FITP" 

3020 PRINT "PPERTE O PL.PV DO GRP 
URDOR" 

3030 PRINT "DIGITE NEW LINE" 

304-0 IF INKE^''* = "" THEN GOTO 304-0 
3050 LET BC=USR DUERIFV 
3060 SLOW 
3063 PRINT 

3065 IF BC=0 THEN PRINT "OK" 

3070 IF BCOO THEN PRINT "ERRO = " 
; BC 

3080 PRINT "NOVP VERIFICPCPO fS-.' 
N) 7" 

3085 IF INKEV»="S" THEN GOTO 300 
0 

3088 IF INKEV»="N" THEN GOTO HEN 
U 

3100 GOTO 3085 

Figura 8 


Conecte o EAR do TK85 com o EAR do seu grava¬ 
dor. Diminua um pouco o volume do gravador, aperte o 
PLAY e digite NEW LINE. 0 comando DVERIFY foi 
ativado, atuando como se estivesse lendo a fita, mas não 
armazena os dados na RAM, permitindo a você, verifi¬ 
car se as informações foram gravadas corretamente sem 
destruir o conteúdo da RAM. Após a execução da subro¬ 
tina aparecerá na tela, o código de reportagem. Se apare¬ 
cer 0 código de erro diminua, pouco a pouco, o volume 
do gravador até surgir um "OK", significando que a gra¬ 
vação foi boa e que a fita será lida neste volume de som; 
caso contrário, será informado o erro. 

Deseja outras fichas físicas em sua fita cassete? Ela 
pode conter inúmeras fichas físicas, que devem ser 
gravadas uma após a outra. Sua fita ficará assim: 



continutf 
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GAP é um espaço entre suas fichas físicas de aproxi¬ 
madamente cinco segundos ou mais, antes que a segunda 
ficha física seja lida. 

Vamos utilizar as informações armazenadas em sua fi¬ 
ta cassete, através de uma pesquisa. Digite o programa 5. 


PROGRRMR 5 

4.000 REH PE SOU ISR 
4-005 CLS 

4-010 PRINT RT 7,3;*'UOCE DESEUR • ' 
4-020 PRINT RT 9,3; "1. NOHE " 
^030 PRINT RT 11,3;"2. TELEFONE 


RELRCRO C> 
DOS COM D 


THEN GOTO SOO 
eo 


4-04-0 PRINT RT 13,3; "3 
OS NOMES COMECR- 
ETERMINRDR LETRR" 

4050 IP INKEY»="1” THEN GOTO 500 
O 

4-050 IP INKEV»="2 
O 

4-070 IP INKEYÍ="3" THEN GOTO 
O 

4-OSe GOTO 4-050 

5000 REM PESOUISR DE NOHE 

5005 CLS 

5010 PRINT "OURL O TELEFONE ?" 
5020 INPUT T$ 

5030 PRINT T* 

5035 PRINT 

504-0 PRINT "REBOBINE R FITR" 

5050 PRINT "RPERTE O PLRY DO GRR 
URDOR" 

5050 PRINT "DIGITE NEW LINE" 

5055 IP INKEY*="" THEN GOTO 5055 
5070 LET Z=0 
5075 DIH B«(230.t 
5050 LET Z»="B" 

5090 LET BC=USR DLORD 
5095 IP BC=1 THEN GOTO 5555 
5100 IP BCoO THEN GOTO 5500 
5120 POR 1=1 TO 230 STEP 23 
5130 IP B»(I-M5 TO I+22J =T» THEN 
GOTO 5500 
514-0 NEXT I 
5300 GOTO 5070 
5500 SLOW 

5510 PRINT "ERR0=";BC 
5515 PRINT 

5520 PRINT "RPERTE STOP DO GRRUR 
DOR" 

5530 PRINT "RPERTE NEW LINE Px N 
OUR PESOUISR" 

5540 IP INKEV*="" THEN GOTO 5540 

5550 GOTO 4000 

5555 SLOW 

5655 PRINT 

5557 PRINT 

5559 PRINT 

5559 PRINT "NRO POI RCHRDO ESTE 
TELEPONE NR PITR" 

5550 PRINT 

5552 PRINT "NOUR PESOUISR fS.'N> ? 
!• 

5554 IP INKEV‘*="S" THEN GOTO 4-00 
O 

5555 IP INKEY*="N" THEN GOTO MEN 
U 

5555 GOTO 5554 
5500 SLOW 


5505 PRINT 
5510 PRINT 
DOR" 

5515 PRINT 
5520 PRINT 
5630 PRINT 
O 1-^22) 
5640 PRINT 

5545 PRINT 
OUISR ? " 

5546 PRINT 


"RPERTE STOP DO GRRUR 

"NOME = ";B*<I TO 1+14.1 
"TELEFONE = "; em 1+15 T 

"UOCE DESEUR NOUR PES 
" CS.-*N) " 


5650 IF 1NKEY»="S" THEN GOTO 400 
O 

5550 IF INKEV*="N" THEN GOTO HEN 
U 

5570 GOTO 5550 

5000 REM PESOÜISR DE TELEFONE 
6005 CLS 

6010 PRINT "OURL O NOME •?" 

6015 DIM N»(15> 

6020 INPUT N* 

6030 PRINT N* 

6035 PRINT 

5040 PRINT "REBOBINE fl FITR" 

6050 PRINT "RPERTE O PLRV DO GRR 
URDOR" 

6060 PRINT "DIGITE NEW LINE" 

5070 IF INKEYi="" THEN GOTO 6070 
6030 LET Z=0 
6085 DIM B« (230.1 
5090 LET Z»="B" 

5100 LET BC=USR DLORD 

6103 IF BC=i THEN GOTO 9500 

5110 IF BCoO THEN GOTO 5500 

6115 FOR 1=1 TO 230 STEP 23 

6120 IF B*(I TO I+14>=M$ THEN GO 

TO 5500 

6130 NEXT I 

6140 GOTO 6030 

6200 SLOW 

5210 PRINT 

6220 PRINT 

5230 PRINT 

5240 PRINT "NRO POI RCHRDO ESTE 
NOME NR FITR" 

6300 PRINT 

6310 PRINT "NOUR PESOUlSR (SxN>7 

f c 

5312 IP INKEY*=”S" THEN GOTO 400 
O 

6314 IP INKEY*="N" THEN GOTO MEN 
U 

6330 GOTO 5312 

7000 REM PESOUlSR POR LETRR 
7005 LET N=1 
7007 DIM N»(1000) 

7010 CLS 

7020 PRINT "NOMES COMECRDOS COM 
R LETRR:"; 

7030 INPUT L* 

7040 PRINT L* 

7045 PRINT 

7050 PRINT "REBOBINE R PITR" 

7060 PRINT "RPERTE O PLRY DO GRR 
URDOR" 

7070 PRINT "DIGITE NEW LINE" 

7080 IF INKEY*="" THEN GOTO 7030 
7090 LET Z=0 
7095 DIM B$(230) 

7100 LET Z*="B" 

7110 LET BC=U3R DLORD 

7115 IF BC=1 THEN GOTO 3500 

7120 IF BC<>0 THEN GOTO 5500 

7130 FOR 1=1 TO 230 STEP 23 

7140 IP B«(I.1=L$ THEN GOSUB 8000 

7150 NEXT I 

7160 GOTO 7090 

7200 SLOW 

7210 PRINT "ERRO=";BC 
7220 PRINT 

7230 PRINT "RPERTE O STOP DO GRR 
URDOR" 

7240 PRINT "DIGITE NEW LINE P.-NO 
UR PESOUlSR" 

7245 GOTO 4000 

8000 LET N*<N TO N+22)=B$(I TO I 
+ 22 ) 

8100 LET N=N+23 
3200 RETURN 
3500 CLS 
3503 SLOW 

3505 IF N=1 THEN GOTO 9500 
8609 FOR U=1 TO N+22 STEP 23 
6510 PRINT N$(U TO U+22) 

8520 NEXT U 
8520 GOTO 5640 
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9600 PRINT 

9602 PRINT 

9603 PRINT 

9605 PRINT "NflO FOI ENCONTRADO N 
ENHUM NOME COMECRDO COM ESTR LE 
TRR" 

9610„ GOTO 564-5 

Figura 10 


A variável Z foi criada e zerada. Nela será armazenado 
0 número de bytes lidos, que serão armazenados no 
buffer, após a execução do comando DLOAD.ZS indica 
0 buffer em que serão armazenadas as informações lidas 
na fita. 

Ao ativarmos o comando DLOAD, o computador co¬ 
loca no buffer a primeira ficha física e por cinco segun¬ 
dos podemos manusear os dados antes que a outra ficha 
entre no buffer. 

O programa 5 possui três tipos de pesquisa: 

1. Procura o nome cujo telefone você forneceu em T$. 

2. Procura o telefone de um determinado nome, indica¬ 
do em N$. 

3. Lista os nomes começados com uma determinada le¬ 
tra, indicada em L$. 

Mas você pode criar outros tipos de pesquisa. Procure 
entender como o comando DLOAD funciona e como é 
feito a pesquisa; depois, deixe livre sua imaginaçãol 

Cada ficha lógica contém 23 bytes, sendo os 15 pri¬ 
meiros bytes, reservados para o nome e os outros 8 
bytes, para o telefone. 

Assim, se você deseja saber o telefone de "X", o com¬ 
putador separa as fichas lógicas (23 em 23 bytes) e com¬ 
para os 15 primeiros bytes com o nome que está em N$. 
Se forem iguais, aparece na tela o nome e o respectivo 
telefone; caso contrário, analisa a próxima ficha lógica. 
Se este nome não for encontrado nesta ficha física, ini¬ 
cia a leitura da próxima ficha física e o mesmo processo 
se repete. 

Caso chegue ao fim do arquivo de dados sem achar o 
nome, aparecerá na tela, o seguinte; 


NRO FOI RCHRDO ESTE NOME NR FITR 

Figura 11 

O mesmo processo é feito para a F>esquisa do nome 
cujo telefone você informou em T$. A única diferença é 
que são comparados os oito últimos bytes de cada ficha 
lógica, com o telefone em T$. 

Na pesquisa de nomes começados com uma letra (L$) 
é comparado o primeiro byte de cada ficha lógica com 
L$. Se forem iguais, esta ficha lógica é armazenada em 
um outro buffer N$; caso contrário, analisa a próxima 
ficha lógica. 

Quando o código de reportagem em BC acusar "fim 
de arquivo", as informações que estão no buffer N$ são 
imprimidos na tela. 

Para completar o seu programa, digite o programa seis 
queéo MENU. 


PROGRRMR 6 

xe RC.M «EHU 

ta l_ET HENU= 10 
13 Cl_S 

15 PRINT RT E N U" 

20 PRINT RT B.5:"UQCE DESEJR-.’* 

30 PRINT RT 10,5;"1. CRIRR FIC 

HR FI5ICR" 

A0 PRINT RT 12.5; “a» GRRt.‘RR FT. 

CHR FI5ICR" 

50 PRINT RT 14.,5; **3. UERIFUTRÍR 

60 PRINT RT 16,5;"*- PESSUISRB? 

FICHR UOGICR” 


70 

IF 


THEN 

Gonro 

190 

V 

80 

0 

IF 


THEN 

Gorro 

2M 

S0 

IF 


THEH 

GOTO 

KíCtiSÊ 

0 





100 

0 

110 

IF 

IWKEY1i=''iA'' 

THe« 

Gorro 


GOTO 70 





Figura 12 


Agora que você sabe como os comandos de armazena¬ 
mento e recuperação de dados funcionam, crie outras fi¬ 
chas lógicas e outros programas-pesquisa. 

O 


-disponível para o seu- 

TK, ZX81, CP 200 E NE. 
SOFTWARE E HARDWARE 
EXCLUSIVOS NO BRASIL. 


SOFTWARE 


• SCREEN • 27 rotinas para oererv 
ciar a tela, com funçOes e eleitos 
sensacionais. Cr$ 14.900.00. 

• DOUBLE • Dobra a velocidade do 
SLOW, sem "Piscar a tela" 

Cr$ 5.500,00. 

• MUSIC • Utiliza a salda MIC do 
seu micro, para a saída de som. 
Necessita amplificador externo. 
Crt 4.960,00. 

• QUICK • Carrega, salva e verifica 
programas em fita. com o dobro 

y da velocidade normal. 

CrS 14.500.00. 

• COMPILADOR BASIC • Roda 
seus programas em BASIC, 60 
vazes mais rApIdo. 

CrS 26.100.00. 

• EDUOR/DISASSEMBLER • A lirv 
y guagem de mAquina sob seu co- 
y mando. CrS 24.500.00. 


HARDWARE 


• K-7 CONTROLLER - Controla o 
motor do gravador automatica¬ 
mente. CrS 16.500.00. 

• RESET • Chave "reset". 

CrS 4.950,00. 

• INVERT • Inversão ícom chave) 
da imagem. CrS 5200,00. 

• INTER200 • Permite que o CP-200 
utilize a TK PRINTER ou outros 
periféricos. CrS 16.800,00. 

• JOY-FACE • ConexAo para JOY¬ 
STICK. CrS 14200,00. 

• EXTENSOR • Afasta a expansão 
de memória, evitando os desliga¬ 
mentos constantes. 

CrS 24.750,00. 

• MONITOR • Cor>exAo direta do 
seu micro a qualquer monitor de 
video. CrS 24.900X0. 



ELDORADO COMPUTADORES E 
SISTEMAS LTDA. 

Rua Visconde de Plrajá, 361 qs. 213/214 
22410 • IPANEMA - RJ - Tel.: (021) 227-0791 


O SOFTWARE NÓS REMETEMOS PARA TODO O BRASIL. 
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Autor: Prof. Wilson José Tuccí — Coordenador de Projetos Especiais da Escola Experimental Pueri 


A AMPULHETA ELETRÔNICA 

Com este programa abrimos a seção RELÓGIOS, on¬ 
de pretendemos apresentar alguns programas para mar¬ 
car 0 tempo no seu Apple; nada melhor do que começar 
com um relógio bem primitivo: a ampulheta (programas 
simulando relógios mais antigos, como o relógio de sol, 
serão bem aceitos pela nossa redação). Com a colabora¬ 
ção dos leitores iremos evoluindo até os modernos reló¬ 
gios digital-analógicos. 

Se você nunca viu uma ampulheta, nem mesmo na 
abertura do "Túnel do Tempo", eis como ela se parece: 



O tempo que a areia leva para passar da parte de cima 
para a parte de baixo, completa um ciclo. 

As primeiras ampulhetas, surgiram no século I depois 
de Cristo, contemporaneamente às clepsidras, ou reló¬ 
gios de água. Chegou-se a desenvolver ampulhetas bas¬ 
tante grandes, com ciclos de até uma hora. Nos séculos 
XVI e XVII eram comuns ampulhetas de 15 e 30 minu¬ 
tos nas igrejas, usadas para marcar o tempo dos sermões. 
Para melhor medir o tempo foram feitas ampulhetas 
com as metades superiores e inferior cilíndricas, de tal 
modo que a altura da areia fosse proporcional ao tempo 
passado, e portanto pudesse haver marcas de minuto em 
minuto, até um máximo de vinte minutos. Muitas am¬ 
pulhetas tinham um eixo no centro, para que ao fim de 
um ciclo, se pudesse rodá-las e começar de novo. 

O Programa 

Linhas 1180-1230 — Essa parte do programa POKEeia 
uma subrotina em linguagem de máquina, para simular 
0 som da areia caindo. 

Linhas 250-270 — "Perguntam" quanto tempo o pro¬ 
grama deve cronometrar e o local de origem da areia. 
Perceba que para cada tipo de areia há um valor de D e 
X, que serão usados na rotina de som, para produzir 


Domus. 

sons diferentes para cada tipo de areia. Sinta-se à vonta¬ 
de para mudar os locais de origem das areias, mudando 
também, conforme necessário, as linhas 280-310. 

Linhas 330-980 — Formam o loop FOR-NEXT que 
determina o tempo a ser cronometrado. 

Linhas 390-470 — Controem a ampulheta em si. 

Linhas 490-620 — Enchem a metade superior com 
areia de cor aleatória. 

Linhas 630-740 — Formam a rotina que tira um grão 
de areia da metade de cima e coloca na metade de baixo. 
Como? Simplesmente pintando o ponto da parte de ci¬ 
ma de preto e o ponto da parte de baixo da cor anterior. 
As posições dos pontos são lidas através das linhas 670 
e710. 

Linhas 750-770 — Constituem um loop para passar o 
tempo, de tal forma que cada grão caia em intervalos de 
1 segundo. Para um ajuste fino do tempo, talvez seja 
preciso mudar o valor final deste loop (um valor maior 
tornará a execução mais lenta, enquanto um valor 
menor a tornará mais rápida). O valor 220 funciona bem 
no nosso computador. 

Linhas 780-880 — Dão a ilusão da areia caindo, 
PLOTando e apagando pontos consecutivos suficiente¬ 
mente rápido para que eles pareçam estar se movendo. 
Use esta técnica em seus programas. A linha 870 chama 
a subrotina em linguagem de máquina para fazer o som. 
Para cada tipo de areia há um som específico. Se você 
quiser, remova o REM dessa linha para que ela fique: 

870 POKE 768,F + NS: POKE 769,S: CALL 
770 :NS = NS + 1 

e então para cada grão que cair, haverá um novo som. 

Linhas 890-940 — Toca o sininho tantas vezes quanto 
os minutos que já passaram. 

Linhas 1000-1160 — Formam a areia, isto é, as coor¬ 
denadas dos pontos que devem ser apagados e pintados 
pela rotina das linhas 630-740. 

TWO-LINERS 

Ainda estamos esperando suas colaborações para apre¬ 
ciação de nossa redação e posterior publicação. 

Portanto, mãos à obra e enviem seus programas pa¬ 
ra: MICROHOBBY 

Seção Por Dentro do Apple 
Caixa Postal 60081 
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I REN Itt AHPULHETA ttt 

31983 POR DENTRO DO APPLE 

IM TEIT : HOHE : CLEAR 
241 60SUB 1188 

251 INPUT ‘QUANTOS NINUTDS DEVO 
CRONONETRAR ? ';NI 
261 HONE : VTAB 7 
278 PRINT ‘QUE TIPO DE AREIA DEV 
O USAR ?■: PRINT : PRINT 'DE 
SERTO DO (NIOHAVE*: PRINT *0 
ESERTO DE (AlTACANA*: PRINT 
'DESERTO DE (6)081': PRINT ' 
DESERTO DO (S)AARA': PRINT : 

PRINT ‘SUA ESCOLHA ? 6ET 
A«: PRINT Al 

288 IF Al « 'H' THEN D > 25:1 - 

18 

298 IF Al » 'A' THEN D > 58:1 • 

18 

3M IF Al - '6' THEN D « 58:1 - 
5 

318 IF Al > 'S' THEN D « 188:1 > 

5 

328 HOHE 

338 FOR TP > 1 TO Hl 
348 6R 
358 R = 37 

368 Z * INT (14 t RND (D) * 1 
378 COLOR» 15 

398 REN CONSTRUIR AHPULHETA 
418 HLIN 13,27 AT 8: HLIN 13,27 AT 
39 

428 VLIN 1,7 AT 13: VLIN 32,39 AT 
13 

438 VLIN 1,7 AT 27: VLIN 32,39 AT 
27 

448 S » 14:J » 21 
458 FOR A * 1 TO 12 STEP 2: PLOT 
S,A ♦ 7: PLOT S,A ♦ 8; PLOT 
J,A * 19: PLOT J,A * 28:S » 

S M:J » J M: NEIT A 
468 S » 14:J * 21 

478 FOR A » 12 TO 1 STEP - 2: PLOT 
S,A ♦ 18: PLOT S,A ♦ 19: PLOT 
J,A * 6: PLOT J,A * hS ^ S * 
1:J > J t I: NEIT A 
468 REH 

498 REN ENCHER A RETADE DE CINA 

5M REN 

518 COLOR» Z 

528 A » 17:C * 19:8 » 21 

538 FOR K » 1 TO 2 

548 FOR J » C TO 8 

558 PLOT J,A 

568 NEIT J 

578 A » A - 1 

588 NEIT K 


598 C » C - 1:8 » 8 ♦ 1 
688 IF A < 6 THEN 628 
618 GOTO 538 
628 HLIN 14,26 AT 38 
638 REN 

648 REH COHECA A NARCAR 0 TENPO 

658 REH 

668 COLOR» 8 

678 READ 1,Y 

688 IF 1 » 8 THEN 9H 

698 PLOT 1,Y 

788 COLOR» Z 

718 READ 1,Y 

728 PLOT 1,Y 

738 IF 1 » 28 THEN R » R - 1 
748 REN 

758 REN AJUSTA 0 RELOSIO 
768 REH 

778 FOR K » 1 TO 228: NEIT K 
788 REH 

798 REN CAIR DA AREIA 
888 REN 

818 FOR F » 19 TO R 
828 COLOR» Z 
838 PLOT 28,F 
848 COLOR» 8 
858 PLOT 28,F - 1 
668 NEIT F 

878 POKE 768,D ^ NS: POKE 769,1: 
CALL 778: REN OPCAO...NS»NS 
♦1 

688 60T0 668 
698 REH 

988 REH TENPO QUE JA PASSOU 
918 REH 

928 FOR S » 1 TO TP 
938 PRINT CHRI (7) 

948 NEIT S 

958 IF S » 2 THEN HOHE : HTAB 1 
8: PRINT '1 HIHUTO': 60T0 97 

8 

968 HOHE : HTAB 17: PRINT TP' Hl 
NUTOS' 

978 RESTORE :NS » 8 
988 NEIT TP 
998 END 
1880 REH 

1818 REN DADOS DA AREIA 
1828 REN 

1030 DATA 28,6,28,37,19,6,19,37 
,21,6,21,37,28,7,28,36,19,7, 

19.36.21.7.21.36 

1848 DATA 28,6,28,35,18,6,16,37, 

22,6,22,37,28,9,28,34,19,8,1 

9.35.21.8.21.35.21.9.22.36 
1858 DATA 22,7,22,35,22,8,23,37, 

23,6,21,34,21,18,28,33,28,18 

,19,34,19,9,18,36,22,9,18,35 


1868 DATA 28,11,17,37,16,7,17,3 

6.17.6.16.37.23.7.28.32.21.1 
1,21,33,22,18,23,36,16,6,24, 

37 

1878 DATA 16,6,16,34,28,12,17,35 
,18,8,17,34,17,7,19,33,17,8, 

18.33.24.6.15.37.19.18.16.36 

1888 DATA 16,7,23,35,16,9,19,32, 

23.8.16.35.24.7.24.36.25.6.2 
2,34,21,12,25,37,23,9,22,33 

1898 DATA 19,11,28,31,23,18,23,3 
4,24,6,26,37,22,11,26,36,18, 

18.21.32.22.12.25.36 

1188 DATA 28,13,24,35,21,13,16,3 
4,15,7,13,36,15,6,18,32,15,6 
,15,35,14,6,14,37,24,18,17,3 
3 

1118 DATA 14,7,25,33,16,8,24,34 
,17,9,18,31,24,9,19,31,19,12 
,28,38,28,14,26,35,25,7,22,3 
2 

1128 DATA 25,8,14,36,26,6,21,31, 
26,7,23,34,19,13,19,38,28,15 
,17,32,21,14,21,38,16,11,23, 

33 

1138 DATA 17,18,16,33,16,9,15,34 
,23,9,14,35,15,9,24,33,22,13 
,22,31,16,18,28,29,17,11,23, 

32 

1148 DATA 16,12,26,34,23,11,17,3 
1,24,11,16,32,21,15,21,29,19 
,14,14,34,23,12,28,28 
1158 DATA 23,13,13,33,16,11,23, 

31.22.14.16.38.18.13.25.33.1 
7,13,22,38,22,15,24,32,17,12 
,19,29 

1168 DATA 18,14,18,29,28,16,21,2 
8,19,15,19,26,21,16,22,29,18 
,15,17,38,28,17,24,31,19,16, 

16.31.21.17.23.38.19.17.28.2 
7,8,8 

1188 REN SON DA AREIA 
1288 POKE 778,173: POKE 771,48: POKE 
772,192: POKE 773,136: POKE 
774,288: POKE 775,5: POKE 77 
6,286: POKE 777,1 

1218 POKE 778,3: POKE 779,248: POKE 
788,9: POKE 781,282: POKE 78 
2,288; POKE 783,245: POKE 78 
4,174: POKE 785,8: POKE 786, 

3 

1228 POKE 787,76: POKE 788,2: POKE 
789,3: POKE 798,96 
1238 RETURN 

O 

Daniel R. Falconer a Joté Eduardo Moreira 
Professores assistentes do 
Departamento de Computação 
da Escola Pueri Domus. 
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Ia FITA DO MÊS: 




O PULO DO SAPO 


Nos números anteriores já analisamos um jogo inteli¬ 
gente (TK Xadrez de MICROSOFT); um jogo sério (Si¬ 
mulador de Vôo — fita brinde de MICROHOBBY); um 
programa-ferramenta (funções I da MICRON) eum apli¬ 
cativo administrativo (SICOM da MICROSOFT). Este 
mês vamos analisar um jogo de ação: 0 PULO DO SAPO 
da MULTISOFT. _ 


PULO 00 



MULTI50FT 

mmÊÊÊÊÊOÊiÊimKtÊKiBmÊBBsmmmmÊÊmagam 

COPYRIGHT tCI -lí#S3 
MULTISOPT INF. LTDO. 

A fita nos foi enviada numa embalagem bem cuidada, 
contendo instruções de carga e um certificado de garan¬ 
tia. Já aqui, nos defrontamos com a primeira novidade: 
a fita está garantida por 60 dias "contra defeitos de fa¬ 
bricação" e por UM ANO, contra "uso indevido ou mau 
funcionamento do equipamento reprodutor mediante 
pagamento de uma taxa de substituição". 

Se realmente isto funcionar, representa uma louvável 
iniciativa que esperamos seja logo imitada por todos os 
fabricantes brasileiros de SOFTWARE. 

Afinal das contas o tão massacrado consumidor pre¬ 
cisa começar a levar um pouco de vantagem. 

A qualidade de gravação foi testada aqui, na redação, 
em gravadores de várias marcas e modelos e justificou 
a ousadia de garantia. A gravação (bem uniforme e em 
bom nível) só dá problemas em gravadores com o 
azimuth da cabeça desregulado. Este é um problema que 
ainda esta à espera de uma solução. 

0 PULO DO SAPO é um jogo tipo "vídeo-game" que 
pode ser jogado com Joystick. Obviamente não resiste a 
uma comparação direta com cartuchos de vídeo-game 
por três motivos básicos: 

1) No cartucho, o tempo de carga é irrelevante (o cartu¬ 
cho é uma ROM.). Na fita em questão, o tempo de car¬ 
ga é de 6 minutos. 

2) A tela do TK é de baixa resolução (pixel muito gran¬ 
de) para poder permitir figuras "realistas". 

3) 0 TK só produz imagens preto e branco. 

Mas, levando-se em conta que o TK é um computador 
(de verdade!) e que esses jogos representam nele, uma 


utilidade marginal, talvez as objeções anteriores possam 
ser relevadas. 

Nossa opinião começa a se tornar um pouco mais fa¬ 
vorável quando começamos a jogar: a apresentação está 
em nível profissional e as instruções são bem nítidas (em 
que pese a ausência de acentos!). 

0 conteúdo do jogo é um pouco pobre: um sapo que 
tenta chegar em casa atravessando uma estrada movi¬ 
mentada e pulando por cima de troncos, tartarugas e ja¬ 
carés para atravessar um rio. 

Um toque patético é dado pelo esporádico apareci¬ 
mento de um filhote (ou será um girino?) que o sapo 
precisa salvar. Quando o sapo pega o filhote no colo, o 
símbolo (não dá para se falar em figuras) pisca com um 
ritmo tão bem acertado que chega a evocar algo esper- 
neandol O efeito é gozadíssimo, mostrando que a cria¬ 
tividade e a imaginação podem muito bem suprir a falta 
de recursos. 

A contagem de pontos e de tempo é impecável e o sa¬ 
po dispõe, inclusive, de uma galeria de recordes, bem es¬ 
timulante para o espírito competitivo. 

Quando um jogador escreve seu nome, se o joystick 
estiver conectado, algumas letras não são aceitas. Este 
problema ocorre com alguns modelos antigos do 
TK82-Ceéde máquina,mas não de fita (aliás já comen¬ 
tamos, na revista, como o usuário deve proceder para eli¬ 
minar este inconveniente). 

Em resumo, trata-se de uma fita produzida e fabrica¬ 
da em nível profissional, contendo um jogo razoavel¬ 
mente interessante, com pouco conteúdo instrutivo mas 
suficientemente divertido para um dia de chuva ou uma 
reunião de amigos. 



(N.R.: Todos os fabricantes de SQFTWARE podem nos 
enviar um exemplar de suas fitas, pois teremos o máxi¬ 
mo prazer em analisá-las e comentá-las para prestar mais 
um serviço a nossos leitores). q 
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NOVIDADES 
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_As principais características deste lançamento da 

Microdigital são; 

O 64K de memória RAM 

O 16K de memória ROM com linguagem BASIC 
(compatível com Apple Soft), Mini-Assembler e Mo- 
nitor/Disassembler. 

O Operação em modo texto ou gráfico de baixa e alta 
resolução (280x192), em cores, sistema PAL-M. 

O Canal de som pela TV. 

O Teclado profissional tipo máquina de escrever. 


Podem ser conectados ao TK2000 até dois gravadores 
cassete com controle por software, em formato Apple¬ 
soft ou próprio, e também pode ser conectado inter¬ 
face para disk-drive de 5 1 /4 polegadas. 

Para display de vídeo pode ser utilizado numa TV co¬ 
mum, em cores ou preto e branco, ou monitor de vídeo. 

A ligação de impressora, tipo Centronics, pode ser 
feita diretamente, sem a necessidade de dispositivos de 
interface adicionais. 


Está previsto o lançamento de outros acessórios tais 
como joystick, interface RS232, etc. 

Uma grande quantidade de programas aplicativos co¬ 
merciais e profissionais, bem como jogos animados em 
cores e alta resolução será lançada. 

Na área de aplicativos comerciais destacam-se: 

1) programa de cálculo de planilhas (tipo Visicalc), 

2) sistema de controle de estoques, 

3) editor de textos para a lingua portuguesa. 


NOVO LIVRO PARA INICIAÇAO AO 
MICROCOMPUTADOR 


gráficos, etc.) até jogos divertidos. 


Está sendo lançado no Rio de Janeiro, um novo livro 
que visa difundir a linguagem básica para microcompu¬ 
tadores, em todo território nacional e nos países de lín¬ 
gua portuguesa. 

O livro, que serve para adultos e crianças é fruto de 
um método e a experiência de um curso para iniciantes, 
desenvolvido pela MICRO-KIT, tem como autores 
Carlos Alberto Abreu, que possui mestrado em Engenha¬ 
ria de Sistemas pela COPPE e de Denise Reis, que tam¬ 
bém possui mestrado em Educação do lESAE, da Fun¬ 
dação Getúlio Vargas. 

Tendo como base a programação voltada para os mi¬ 
crocomputadores da linha Sinclair: TK82, 83, 85, 
CP200, TIMEX 1000, ZX81, entre outros; esse livro po¬ 
de também ser utilizado pelos operadores da linha TRS 
ou APPLE, com ligeiras modificações. 

Sendo editado no Rio de Janeiro, o livro será distri¬ 
buído diretamente pela Micro-Kit em sua primeira 
edição. 

PROGRAMAS PARA COMPATÍVEIS COM TRS-80 

Foi lançado livro de programas para CP300, CP500, 
D8000, D8001, D8002, DGT100, NAJA, JR.SYSDATA 
de autoria de Jeff Andrew editado pela EB Informática 
(CP. 30234, CEP 1051, SP). 

Os programas varrem toda gama de interesse, indo 
desde aplicativos sérios (conta bancária, demonstrativos 


A INFORMÁTICA CHEGA AS ESCOLAS 
DE 19 E 29 GRAUS 

Crianças e adolescentes de várias escolas particulares 
do 1P e 29 graus, já estão aprendendo a operar em mi¬ 
crocomputadores pessoais, sendo esse o primeiro passo 
para que, no futuro, eles possam desenvolver-se no pro¬ 
missor campo da informática. 

O curso, que está sendo ministrado pela CENADIN — 
Centro Nacional do Desenvolvimento da Informática, 
sob a direção do engenheiro Ramiro Yabumoto e Ale¬ 
xandre L. Werfel, seguem as seguintes fases: Iniciação ao 
Microcomputador — Programação Basic e Introdução ao 
Processamento de Dados. 

Com um corpo de vários professores especializados, 
esta empresa ministra esse curso no próprio colégio, 
onde, em razão do próprio interesse dos pais dos alunos, 
lhes foi cedido um espaço para essa especialização fu¬ 
tura. 

Colégios de boa categoria, como o Rio Branco, Renas¬ 
cença, Benjamin Constant, Maria Imaculada entre 
outros, já cederam espaços para que a Cenadin possa ini¬ 
ciar seus alunos no campo da informática. 

A iniciativa pioneira desta empresa, acha-se em franca 
expansão e apesar da resistência de algumas escolas, o 
engenheiro Alexandre acredita que outros colégios de 
São Paulo irão aderir, uma vez que, o próprio avanço da 
informática irá determinar esse procedimento. 
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CURSO DE ASSEMBLY 
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Flavio Rossini 


Observação Inicial: Para esclarecimento dos leitores, sa¬ 
lientamos que este curso é um resumo do livro "Introdu¬ 
ção à Linguagem de Máquinas" para o TK" — AS¬ 
SEMBLY Z80", Volume I de Flávio Rossini (Editora 
Moderna e Micromega). Para os que desejarem se apro¬ 
fundar no ASSEMBLY 28(3, sugerimos a leitura do livro 
citado e sua continuação (Volume II). 

PRINCIPAIS REGISTROS INTERNOS DE 8 BITS 

Iniciaremos esta aula explorando o conceito de RE¬ 
GISTRO; esta palavra já foi utilizada quando falamos so¬ 
bre a memória. Um registro é um circuito eletrônico ca¬ 
paz de memorizar bits (oito no nosso caso), podendo re¬ 
presentar e armazenar números de 0 a 255 ('00' a 'FF' 
em hexadecimal). 

0 microprocessador do TK possui vários registros in¬ 
ternos que são muito utilizados nos programas em lin¬ 
guagem de máquina, dos quais sete serão estudados nes¬ 
sa aula; estes registros "não" fazem parte da memória e 
são chamados respectiva mente de A, B, C, D, E, H e L. 
Alguns deles têm a propriedade de "juntarem-se" quan¬ 
do necessário, formando um único registro de 16 bits; 


MICRO RB 

INFORMÁTICA LTDA. 
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- Cursos regulares de Linguagem BASIC ou com 
horário a combinar, para executivos e para 
qualquer microcomputador. 

- Curso sobre GRÁFICOS em Basic, para JR. 

DISMAC. ...wy, 

- Venda de micros pelo correio: JR, MAXXi. 

- Transformamos televisão para monitor. 

- Consultoria em SOFTWARE para 

microcomputadores. o l ^ 

- Especializada em programas para Hewlett Packara 

8 5 

- Programas prontos para HP 85 e 87: 

• Mala direta e agenda de clientes • Movimentação 
bancária com código de despesas • Datilografia 
automática de circulares com busca de endereços na 
fita • Topografia • Contabilidade de autônomo: livro 
caixa • Jogos diversos • Folha de pagamento 

• Controle de estoques • Controle para Postos de 
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assim podemos formar os pares de registros BC, DE e 
FIL (só estes pares são possíveis). 

Por exemplo, se o registro B contém o número 'A0' 
(160 em decimal) e o registro C contém 'B2' (178 em 
decimal)-o par BC contém o número 'A0B2' (256 x 
X 160+ 178= 41138 em decimal). 

FP I-1 


A 


B 

C 

0 

E 

H 

L 


(Co«no pod«fn ••• im«9tnadot o« princtpMi f^itro í int«fno« do 
m icroproooMdor) 

Como vimos anteriormente, as instruções em lingua¬ 
gem de máquina são dadas por um ou mais grupos de 
códigos em hexadecimal de dois dígitos cada. Isto é fei¬ 
to para evitar a confusão que poderia ser criada usando 
apenas os números 0 e 1. Mesmo assim, temos agora 
apenas 16 símbolos disponíveis (0, 1, 2, 3, 4, 5, 6, 7, 8, 
9, A, B, C, D, E, F) e para programas razoavelmente 
grandes mesmo isto pode trazer confusão! Dessa forma, 
para facilitar a compreensão do ponto de vista humano, 
costuma-se associar a cada instrução, grupos de letras em 
forma MNEMÓNICA para auxiliar a programação, que 
são chamados "códigos de operação", pois terão como 
objeto associar uma ORDEM a cada grupo de letras! Por 
exemplo, se o código 10100111 significar "some", seu 
correspondente em hexadecimal seria 'A7' e seu mnemó¬ 
nico poderia ser ADD. Assim, dependendo da instrução 
em linguagem de máquina, cada mnemónico poderá 
significar 1 ou mais grupos de 2 dígitos hexadecimais. 
Dessa maneira, para programar em linguagem de máqui¬ 
na, deveremos aprender os mnemónicos correspondentes 
a cada instrução do microprocessador e fazer o progra¬ 
ma utilizando os mesmos; no final com o auxílio de uma 
tabela, substituiremos os mnemónicos por seus códigos 
hexadecimais e utilizaremos o HEXAMEM para colocar 
o prçgrama em bits no computador. 

No TK os programas em linguagem de máquina são 
tratados como SUBROTINAS de um programa em 
BASIC, as quais são chamadas pela função USR (em 
BASIC, abreviação de USER) cujo argumento é o ende¬ 
reço inicial da subrotina (por exemplo 30000 se o pro¬ 
grama de linguagem de máquina estiver a partir do ende¬ 
reço que colocamos em RAMTOP em aulas anteriores); 
portanto, estas subrotinas devem ter como instrução fi¬ 
nal um comando para voltar ao BASIC, similar ao 
RETURN, cujo código hexadecimal e mnemónico são 
respectivamente: 


'C9' (código) RET (mnemónico abreviação 
de RETURN) 
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Vamos entender como funciona a instrução USR; su¬ 
ponhamos que tivéssemos o seguinte "programa" em 
BASIC: 

10 PRINT USR 30000 (USR está na tecla L do TK) 

Ao encontrar USR 30000, o computador "carrega" o 
par de registros BC (mencionados anteriormente) com 
este número, ou seja, como 30000 = '7530', teremos 
B = '75' e C = '30'. A seguir o microprocessador exe¬ 
cuta 0 programa em linguagem de máquina que começa 
na memória 30000 (= '7530'); portanto é conveniente 
que tenha sido previamente colocado um programa a 
partir da memória 30000. O programa é então executa¬ 
do até encontrar a instrução RET (código 'C9') quando 
0 controle volta ao programa BASIC, fornecendo como 
saída o conteúdo do par BC, que, se não for alterado du¬ 
rante 0 programa em linguagem de máquina, continuará 
sendo '7530' (30000). Portanto, para obter a saída da 
subrotina (ou seja, os resultados que devem estar no par 
BC) basta ordenar um PRINT da função USR! 

Vamos então colocar o seguinte programa em lingua¬ 
gem de máquina na memória 30000: (que já deve estar 
reservada!) 

RET (apenas isto!) 

Como se trata apenas de uma instrução, não precisa¬ 
mos utilizar 0 programa HEXAMEM; iremos fazê-lo di¬ 
retamente com POKE. O código hexadecimal do RET é 
'C9' que equivale a 201 (em decimal), portanto: 

POKE 30000,201 (NEW LINE) 

A seguir digite: 

PRINT USR 30í)00 (NEW LINE) 

O que deverá aparecer na tela? Ora, a função USR 
carregará o par BC com 30000 ('7530'), ordenando a se¬ 
guir, que o microprocessador execute o programa em 
linguagem de máquina que está a partir da memória 
30000, encontrando "de cara" o RET. Dessa forma, o 
controle voltará ao programa em BASIC, sem ter altera¬ 
do os registros BC e fornecerá como saída, o próprio 
30000; portanto, na tela de TV deverá aparecer o núme¬ 
ro 300(M. 

Poderia surgir agora a seguinte pergunta: mas não 
existe uma instrução equivalente ao STOP? De fato, há 
em linguagem de máquina, uma instrução similar ao 
STOP em BASIC cujo código de operação é HALT (có¬ 
digo hexadecimal '76'). NUNCA use esta instrução pois, 
neste computador, ela paralisa o sistema e este não acei¬ 
ta mais nenhuma tecla nem mesmo o BREAK! Portan¬ 
to, use sempre RET para terminar seus programas em 
linguagem de máquina. 

A INSTRUÇÃO LD 

A instrução LD permite colocar números dentro dos 
registros internos do microprocessador (obviamente es¬ 
tes números poderão ser de '00' a 'FF' no máximo para 
cada registro), copiar os dados de um registro em outro 
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OU para algum endereço da memória e vice-versa; assim, 
existirão várias instruções LD, cada uma com seu pró¬ 
prio código hexadecimal. (LD é abreviatura de LOAD = 
= carregue). 

Vamos analisar inicialmente, como colocar números 
diretamente nos vários registros; a instrução, de modo 
genérico, corresponde a; 

LD registro,dado 

Por exemplo; 

LD E, '2A' (que equivale a dizer LD E,42) 

Colocará o número '2A' (42) no registro E. Esta ins¬ 
trução corresponde a 2 (dois) bytes em código hexade¬ 
cimal, um para o código de operação (no caso "car¬ 
regue" 0 registro E: LD E,) e o outro para o dado 
número que será colocado. Assim, para os vários regis¬ 
tros, teremos os seguintes códigos de operação e códigos 
hexadecimais; 


INSTRUÇÃO 

CODIGO 

LD A,dKfc> 
LD B,(todo 
LDC.daòo 
LD D, dado 
LDE.tteòo 
LO H.àaào 
LO L. dado 

‘3E' *■ 1 bYta para o dado 

'#6' 4- 1 o dado 

‘•E‘ 4- 1 para o dado 

*16' 4 - 1b^ para o dado 

*1E' 4- 1b^ para o dado 

‘26* 4- 1 byta para o dado 

*2E* 4^ 1 b^ para o dado 


(0 inftruçio LD registro.dtòo (8 bits).) 


continua 
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Vamos então fazer um programa, que "carrega" o re¬ 
gistro B com '00' e o registro C com '2A'; 


MEM.30000 

LD B.'00' 

'0660' 

;'H' - 0 

MEM.30002 

LD C.'2A* 

'0E2A* 

;'2A' - 42 

MEM.30004 

RET 

'C0' 



Devemos então colocá-lo, por exemplo, a partir da 
memória 30000 (lembre-se de reservá-la), usando 5 vezes 
POKE como fizemos anteriormente para a instrução 
RET (transformando adequadamente os códigos hexade¬ 
cimais para decimais) ou então usando o programa 
HEXAMEM para introduzir as 3 instruções. Se você uti¬ 
lizar o HEXAMEM, lembre-se de RESERVAR o fim da 
memória antes de colocá-lo no computador; a seguir, 
execute-o colocando 30000 para o endereço inicial e fa¬ 
ça: (N.L = NEW LINE) 


0€00 

(N.L.) 

0E2A 

(N.L.) 

C9 

(N.L.) 

P 

(N.L.) 


Note que o programa ocupa 5 posições de memória, 
respectivamente de 30000 a 30004. 



00000110 

•06' 

30001 

00000000 

.00' 

30002 

00M1110 

'0E' 

30003 

N101010 

'2A' 

30004 

30005 

11N1M1 

'C9' 


LO B. N' 

LO C, '2A‘ 
RET 


(visuAlixaçio do programa r\a mamória do computador) 
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A seguir ditite: 

PRINT USR 30000 (N.L.) 

O que deverá aparecer na tela? O conteúdo do par de 
registros BC, ou seja, 256 x 0 + 42 = 42. Isto porque o 
par de registros foi alterado antes da instrução RET; 
assim seu conteúdo inicial que era BC = 30000 ('7530) 
foi modificado pelo programa para BC = 42 ('002A'). 

Há também a possibilidade de carregar diretamente 
pares de registros; neste caso porém, cada instrução cor¬ 
responderá a 3 bytes, 1 para o código de operação e 2 
para o número que deverá ter 16 bits. Note que, como já 
foi comentado anteriormente, você deverá colocar antes 
SEMPRE O BYTE MENOS SIGNIFICATIVO; assim 
temos as seguintes instruções: 


instrução 

CODIQO 

LD BC, dKk) 

LD DE. (todo 
LDHL. (todo 

'01' ♦ 2 byt« por* o (todo 
'11' 2 bytts part o (todo 

'21* -f 2 bytat pari o dado 


(0 instruçio LO par da ragistroi. dado (16 biU).) 


E façamos o programa: 

MEM.3MM LO BC. MAC BIAtM’ ; invwsfo d* 

‘A0‘ com *#•* 

MEM, 30062 RET_W 

(vafa nQ 4 ou nQ axtra-promocional) 

Usando HEXAMEM, coloque o programa a partir da 
memória 30000. Verifique que fazendo PRINT USR 
30000 você obterá 160 (Por quê?). Você não precisa 
preocupar-se em "apagar" o programa anterior, pois es¬ 
tará escrevendo "por cima" nas mesmas memórias. 

Experimente "esquecer" de inventar os bytes confor¬ 
me indicado e introduza este programa: 

• IMAC 

•C9' 

0 que você irá obter? Tente explicar o resultado. 

Vamos ver agora, como passar números de um regis¬ 
tro para o outro; teremos todas as combinações pos¬ 
síveis da seguinte instrução genérica: 

LD registro, registro, 

a qual copia o conteúdo do registro da DIREITA no re¬ 
gistro da ESQUERDA, não alterando o conteúdo do re¬ 
gistro da direita; esta instrução equivale a apenas 1 byte 
em código hexadecimal pois não exige que nenhum da¬ 
do seja explicitado. Para facilitar, iremos construir uma 
tabela que possui todas as combinações possíveis desta 
instrução: 


LD 

A 

B 

C 

D 

E 

H 

L 

A 

*7F* 

78' 

79' 

7A‘ 

7B' 

'7C' 

•7D* 

B 

'47* 

*40' 

*41* 

'42* 

'43* 

'44' 

'46' 

C 

'4F* 

'48* 

'49* 

'4A* 

'48' 

'4C' 

•4D' 

D 

•67* 

'60' 

*51* 

'62* 

•63' 

'64' 

*55' 

E 

'6F' 

'68' 

•69' 

'6A* 

•6B' 

•6C' 

•6D' 

H 

'67* 

'60' 

'61' 

'62* 

•63' 

*64' 

'66' 

L 

'6F* 

'68' 

•69' 

*6A* 

•68' 

•6C' 

SD' 


Para utilizá-la, use sempre primeiro a coluna vertical 
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à esquerda e, a seguir, 
exemplo; 

LD C,D equivale a '4A' 


a linha horizontal superior; por 


LD E,E equivale a '5B' 


(copie o conteúdo do registro 
D no registro C, sem alterar o 
registro D). 

(copie o conteúdo do registro 
E no registro E. Como você 
pode notar esta instrução não 
faz absolutamente nada!). 

Experimente agora o seguinte programa, que copia o 
conteúdo dos registros H e E, previamente carregados, 
nos registros B e C respectivamente: (lembre-se que, por 
enquanto, iremos fazer sempre MEMÓRIA INICIAL = 
= 30000 e que o final de memória deve estar reservada 
antes de colocar HEXAMEM no computador). 


(NOTA: NÀO existe instrução para copiar de uma só 
vez números de 1 par de registros para outro; assim, por 
exemplo, a instrução LD BC, HL nâk) é válida e deve ser 
substituída por: 

LD B,H e LD C,L 

Além disso, NÃO é possível tentar copiar o con¬ 
teúdo de um registro para um par ou vice-versa; portan¬ 
to, instruções do tipo: 

LD BC,A 

LD D,HL 


não existem! 


MEM. 3#M« 

LOM.‘ÍV *26ir 

«‘carrega H oom 'f1' 

MEM. 3#M2 

LDE. '5i' -lEBé' 

; carrega E oom *5#' 

MEM. 3#«#4 

LD B,H 

*44' 

; copia H em B 

MEM.3Mt5 

LDC.E 

'48' 

: copia E em C 

MEM. 3MM 

RET 

•C9' 

; volta ao BASIC 


Utilize então HEXAMEM para colocar os códigos do 
programa na memória e, no final, ao invés de teclar P 
(pare), tecle XS (eXecute em Slow) ou XF (eXecute em 
Fast) para que o programa seja executado. Naturalmente 
se você prefere continuar fazendo PRINT USR 
não há problemas. 

Perceba que este programa "carrega" o registro H 
com '(31* e o registro E com '50' (80 em decimal) e, a se¬ 
guir, copia o registro H em B e o registro E em C, fazen¬ 
do BC = '0150'. Desse modo, você poderá obter 1 * 256 + 
+ 80 = 336. 


A título de esclarecimento, podemos agora fazer uma 
analogia com o BASIC; a instrução LD registro, dado de 
1 byte ou LD par de registros, dado de 2 bytes pode ser 
associada à instrução LET variável = número, por exem¬ 
plo, LD B, '10' com LET X = 16. A instrução LD regis¬ 
tro, registro pode ser associada a LET variável = variá¬ 
vel, por exemplo, LD H,L com LET X = Y. 

É conveniente lembrar que ao chamar uma subrotina 
em linguagem de máquina, apenas o conteúdo dos regis¬ 
tros B e C é conhecido; todos os demais têm um con¬ 
teúdo desconhecido. O mesmo é válido para a memória 
que fica após o programa. Vamos exemplificar: ao fazer 
RAMTOP = 30000, reservamos a memória de 30000 a 
32767. Se tivermos um programa que ocupa 100 bytes, 
ou seja, da memória 30000 à memória 30099, as posi¬ 
ções de 30100 a 32767 terão valores "quaisquer". E nes¬ 
ta região de memória APÔS o programa em linguagem 
de máquina que colocaremos as variáveis do nosso pro¬ 
grama que não "couberem" nos registros. o 



COfflPUTflCflO 
ELEIRÔnid)! 


NAO PERCA TEM¬ 
PO! SOLICITE 
INFORMAÇÕES 
AINDA HÒJE! 


GRÁTIS 



NO MAIS COMPLETO CURSO DE ELETRÔNICA DIGITAL E MICRO 
PROCESSADORES VOCÊ VAI APRENDER A MONTAR, PROGRAMAR 
E OPERAR UM COMPUTADOR. 

MAIS DE 160 APOSTILAS LHE ENSINARAO COMO FUNCIONAM OS. 
REVOLUCIONÁRIOS CHIPS 8080, 8085, Z80, AS COMPACTAS "ME 

mOrias"e como sao programados os modernos COMPU 

TADOREa 

VOCÊ RECEBERA KITS QUE LHE PERMITIRÃO MONTAR DIVERSOS 
APARELHOS CULMINANDO COM UM MODERNO MICROCOMPU¬ 
TADOR. 

CURSO POR CORRESF>ONDÊNCIA 

CEMI - CENTRO DE ESTUDOS OE MICROELETRONICA E INFORMATICA 
Av. Paes de Berros, 411, cj. 26 - Fone (011) 93-0619 
Caixa Postal 13.219 - CEP 01000 - SSo Paulo - SP 

Nome. 

Endereço. 

Bairro. 

CEP.Cidade.Estado . 
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os OITENTA 


UM EDITOR DE CARTAS 



Igor Sartori 


Um dos recursos mais interessantes de um compu¬ 
tador é sua capacidade de manipulação de texto. Ou se¬ 
ja, juntar, separar, quebrar e classificar sír/n^s (cadeias). 
Isso permite usar o computador e sua impressora como 
uma máquina de escrever "inteligente". 

Programas com esta finalidade, são chamados de "edi¬ 
tores" ou "processadores de texto" e atualmente, são 
bastante usados em jornais para facilitar os trabalhos de 
diagramação, revisão e redação de artigos. 

Em algumas revistas especializadas têm aparecido 
muitos programas que realizam uma ou outra função de 
manipulação de strings, principalmente para compu¬ 
tadores compatíveis com o TRS-80 e o Apple II. 

Se você tem um TK-82 e viu algum destes programas, 
deve ter pensado; "Interessante . . . mas como eu pode¬ 
rei fazer o mesmo no meu computador?" 


Um editor de cartas 


If * COITOR OC CARTAS 
at CLRAR 2049 
39 PIN AS(109) 

49 mPUT *OUAL O NUMERO MÁXIMO OC CARACTERES"2H 
S9 INPUT *MOHC 00 AUTOR DA CARTA*}MS 
S9 INPUT "DATA (POK EXTENSO) *;D$ 

79 INPUT "CIDADE 00 AUTOR DA CARTA "iLS 
•9 INPUT "NOME 00 DESTINATÁRIO *;DlS 

99 INPUT * CNDCRCCO (Rua a numero) 00 OBSTINATARIO *;B9 

199 INPUT "CCP« O NOME DA CIOAOE* 0 ESTAOO DO DESTINATÁRIO (EM UNA ONl 

CA LINNA)*)T1S 

119 INPUT "OICITE *Pr«sado(«) St(a.) PRIKERO NOME 00 OESTINATARXO**|Al 

129 PRINT CMRSOl) 

139 PRINT*INSTRUÇÕES" 

149 PRINT "INTRODUZA AS LINHAS UMA A UMA." 

159 PRINT "SB OCORRER UM ERRO CM UMA DELAS,ELA POOBRA SBR* 

199 PRINT "SER CORRIGIDA OIGITANOO-SB *4* E SEU RESPECTIVO NUMERO* 

179 PRINT*DIGITE 'FIM* PARA PARAR* 

199 rOR X-1 TO 199 
199 Z-X 

299 PRINT "l*)! 

219 INPUT AS(X) 

229 IP LCrTS(A9(X),1}-*I* THEN 459 

239 ir AS(X)-"riM" THEN PRIHT CHRS(31)tCOTO 299 

249 ir LBN(A9(Z>) > N THEN PRINT "UNHA MUITO GRANDE* tT-ltX-X«l xC«l IH- 

9iGOTO 479 

259 NRXT X:X»X-1 

299 PRINT TAB(5))U)*,"20S 

279 PRINTtPRINTtPRlNTlPRINT 

299 PRINT TAR(5))01S 

299 PRINT TAB(5))CS 

399 PRINT TAB(5))T1S 

319 PRINT 

329 PRINT TAB(5)2Al9;*t* 

339 PRINT 

349 POR B*1 TO X-1 
359 PRINT TAB(5)2A9(») 

399 NEXT 9 


Mudando um pouco o enfoque dado em artigos ante¬ 
riores, mostraremos um programa destinado a outros 
computadores e depois de explicarmos detalhadamente 
seu funcionamento, descreveremos como você poderá 
implementar um programa semelhante em seu TK. 

Este programa (veja listagem) tem a finalidade de co¬ 
locar um texto de uma correspondência num formato 
de carta padrão. 0 texto deverá entrar linha por linha, 
poderá ser corrigido em qualquer momento de sua di¬ 
gitação - sendo impresso após a digitação da última 
linha, limpo e sem erros, já que eles foram eliminados no 
processo de escrita. Foi desenvolvido em BASIC padrão, 
podendo ser rodado na maioria dos computadores, me¬ 
diante adaptações à sua respectiva versão do BASIC (por 
exemplo, o Apple Meo TRS-80 e seus similares). 


379 C-23«B 
399 PRINT 
399 PRINT 

499 PRINT TAB(55)|*At«DCÍos«a«nt** 

419 PRINT 
429 PRINT 

439 PRINT TAB(55);M9 

449 ENO 

459 * ROTINA DE CORRBCAO 

499 T*VAL(RIGHT9(A$(X),LCN(A9(X))-1)) 

479 INPUT "SELCCAO; 1) INTRODUZIR NOVAMCMTS A UNHA 2)CORRCCAO"2 A 
499 IP A<1 OR A>2 THEN 479 
499 ON A GOTO 599,529 
599 A9(y)-*"tINPUT A9(r) 

*249*’*"^**^ OR A9(T)-"* THEN COTO 259 EL9B LET Z-ZtCOTO 

529 T-LBN(A9(y)} 

539 C-1 
549 LBT M-9 
559 Q9*INKEy9 

599 IP 09-* " THEN IP OT THEN GOTO 559 ELBB LfT M-M^liC-C^llIE-MIOEI 
A|(y) ,H,1)tPRINT 19; 

579 IP Q9-"0" ANO C<-T THEN A9(t)- LEPTZ(A9(I),C-1)♦ RIGHT9(A9(Z),LBN 
(A9 (Z)) —C) 

599 IP 09-*I- THEN INPUT J9xA9(Z)-LEPT9(A9(Z).C-1)♦J9^RIGMT9(A9(Z),t 
tN(A9(Z))-C»l) 

599 IP 09-"E" THEN IP LEN (A9(Z))<-N THEN PRINT XPRIMT A9(Z)xA9(X)-" 
*-X-1*C-1:M*9 iZ-Y:PRIMT:PRINT A9 (Z) tCOTO 249 
*‘*'*“‘f RICHT9(A9 (Z) ,(LEN(A9(Z))-C^1)) tC-l:M-9 
919 IP 09--R" THEN PRINT CMR9(19)}xLET M-M-ilC-C-1 
929 COTO 559 
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FUNCIONAMENTO 


0 programa editor de cartas está dividido em quatro 
partes: introdução dos dados do autor da carta e do des¬ 
tinatário, introdução do texto da carta, correção dos 
possíveis erros e impressão da carta. 

Na primeira parte, que compreende as linhas de 10 a 
120, reserva-se inicialmente um espaço na memória para 
0 texto da carta, por meio das instruções CLEAR 2000 
e DIM ASdOO). A instrução CLEAR 2000 reserva 2000 
bytes da memória para stringsea instrução DIM A8(100) 
dimensiona um vetor de 100 posições de memória, que 
conterá o texto da carta. Desta forma, poderemos escre¬ 
ver uma carta com no máximo 100 linhas ou 2000 letras 
(cerca de 200 a 300 palavras), o que é suficiente para 
um bom “bate-papo". 

A seguir, dimensiona-se o número máximo de caracte¬ 
res por linha. Isso será função do tamanho do papel dis¬ 
ponível e do tamanho da margem direita e esquerda. No 
programa, a margem esquerda foi fixada em 5 espaços, 
ficando a margem direita a critério do usuário. 

A seguir são pedidos os dados do autor da carta e do 
destinatário. Na linha 100 pede-se o CEP, a cidade e o 
Estado do Destinatário. Estes dados deverão ser digita¬ 
dos em uma única linha, separados por um espaço. 

Uma vez digitados todos os dados, a tela é limpa, por 
meio da instrução PRINT CHR8(31). Isso prepara a tela 
do computador para a introdução do texto da carta. 


A INTRODUÇÃO DO TEXTO 


No momento da introdução do texto, o programa 
mostra na tela uma série de instruções destinadas a ex¬ 
plicar como proceder. 

A seguir, o computador mostra o símbolo segui¬ 
do pelo número 1. Isso indica que você deve digitar a 
primeira linha de seu texto. Quando terminar de digitá- 
la, pressione a tecla ENTER, NEW LINE ou equivalente. 
Se a linha for muito grande, o programa entra automati¬ 
camente no modo de correção, exibindo a mensagem; 

LINHA MUITO GRANDE 

Se, por outro lado, o número de caracteres digitados 
for menor que aquele estabelecido no início do progra¬ 
ma, 0 computador exibirá novamente o símbolo "#", 
seguido pelo número 2, indicando que devemos digi¬ 
tar a próxima linha, e assim sucessivamente, até que seja 
digitada a palavra FIM, com todos os caracteres em 
maiúsculas, ou quando o número de linhas exceder a 
100 — limite estabelecido pelo programa. 

Neste momento o programa passa para o modo "im¬ 
pressão", limpando a tela e imprimindo o texto no for¬ 
mulário, segundo a formatação pré-estabelecida pelo 
programa. 

O MODO DE CORREÇÃO 


Em qualquer momento da digitação, podemos entrar 


no modo de correção para corrigir um erro que porven¬ 
tura tenha sido cometido ou se simplesmente desejarmos 
ver uma linha qualquer, já digitada anteriormente. 

Para entrar no modo de correção, devemos pressionar 
a tecla ENTER na linha que estivermos digitando. Quan¬ 
do 0 computador mostrar o símbolo de "#" seguido pe¬ 
lo número da próxima linha, devemos digitar o símbolo 
"# " seguido pelo número da linha que desejarmos — que 
pode ser qualquer uma —, inclusive a última linha digi¬ 
tada. 

Uma vez feito isso, o computador nos apresenta duas 
possibilidades de escolha: digitar novamente a linha ou 
corrigí-la. 

Se escolhermos a primeira opção, basta, após indicar a 
escolha ao computador, digitar a linha novamente, lem¬ 
brando-se que existe um limite ao número máximo de 
caracteres. 

Na segunda opção teremos à nossa disposição, vários 
caracteres auxiliares com funções de correção: 

Espaço — a tecla de espaço permite, ao ser pressionada, 
mostrar a linha caractere por caractere. 

L — a letra L maiúscula permite visualizar-se a linha to¬ 
da na tela. 

B — tem a função de backspace, ou seja, retorna o cur¬ 
sor sem apagar o caractere mostrado no vídeo. 

D — apaga o caractere imediatamente à direita. 

I — permite a inclusão, em qualquer ponto da linha de 
vários caracteres. Uma vez digitado o caractere "I", os 
caracteres usados como comando, passarão a atuar como 
caracteres normais. 

E — volta ao modo de introdução de linhas, na mesma 
linha onde foi abandonado. 

Sempre que a linha estiver muito grande, o compu¬ 
tador avisará, exibindo uma mensagem e retornando ao 
modo de correção. 


POSSIBILIDADES DE 
MUDANÇAS 


Este programa poderá ser modificado de acordo com 
as suas necessidades e sua imaginação. Por exemplo, po¬ 
demos eliminar as linhas relativas à correspondência e 
torná-lo mais geral. Poderemos, ainda, tentar transfor¬ 
mar a rotina de verificação do tamanho da linha (linha 
240) em uma rotina que, além de verificar o tamanho da 
linha digitada, "quebra" o seu texto, transferindo os ca¬ 
racteres excedentes para a linha posterior. 

As modificações mais interessantes, no entanto, são as 
que tornam este programa compatível com o TK. Mos¬ 
traremos, na próxima parte, um conjunto de dicas para 
traduzirmos este programa para o seu computador. Estas 
dicas são interessantes mesmo para quem não vá fazer 
um programa de edição de cartas, pois elas valem para 
vários outros programas. 

Nota: A listagem que mostramos não imprime o texto, 
mas mostra-o na tela. Isso é conveniente na fase de 
debug, quando eliminamos os erros de lógica e de digita¬ 
ção, pois evita-se o gasto de papel desnecessário. Uma 
vez corrigido o texto, mude as instruções PRINT das 
linhas 260 à 430 para LPRINT. 

O 
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RESPOSTA DO QUEBRA-CABEÇA 


m MENSA 

International 



Dentre as muitas respostas que recebemos de nossos 
leitores do Quebra-Cabeça ''Motoqueiro no Deserto" en¬ 
contramos, mais uma vez, a de Samuel Ejchel. 

Desta vez, porém, ela nos chegou às mãos a tempo de 
ser escolhida para publicação. Isso pela clareza e simpli¬ 
cidade com que ele abordou e resolveu o problema. 

Recebemos muitas outras respostas de nossos assinan¬ 
tes, porém estavam corretas apenas as enviadas por 

André B.Hartmann 
Antonio Cesar Lettieri 
Albio Bõing. 

Marcos Antonio Pichateber 

O Quebra-Cabeça da revista nQ 3 admite muitas solu¬ 
ções ou instruções equivalentes, que conduzem sempre a 
uma distância máxima de 275 km. 

Q itinerário na condição da solução ótima, pode ser 
decomposto em 3 trechos: 

1. Q último, que o motoqueiro percorre apenas duas ve¬ 
zes, uma indo outra voltando. Para ser máximo, ele deve 
partir com tanque totalmente cheio e caminhar 150 km 
para frente e em seguida retornar. 

2. Como existe combustível disponível para 900 km e o 
tanque da moto leva o equivalente a 300 km, haverá um 
primeiro trecho que, no mínimo, deverá ser percorrido 
6 vezes, 3 indo e 3 voltando. Isto porque 900:300 =3. 

Para otimizar, este trecho deve ser o mais curto pos¬ 
sível. 

3. No segundo trecho, que liga o fim do 19 com o início 
do último, deve-se levar e deixar combustível suficiente 
para os 300 km do último trecho. Como a capacidade 
total do tanque é equivalente a 300 km não será possível 
fazer isso em menos que 2 etapas, ou seja, a moto deverá 
percorrer o segundo trecho no mínimo 4 vezes, duas 
indo e duas voltando. Como no primeiro a moto percor¬ 
re 6 vezes e neste só 4, devemos fazer este trecho o mais 
comprido possível, em detrimento do primeiro, ou seja, 
a moto deve sempre partir com o tanque cheio e cami¬ 
nhar a maior distância possível, deixando sobrar no fim 
o equivalente a 150 km por etapa. Assim este trecho de¬ 
verá ter 75 km de forma que a moto sai com o equiva¬ 
lente a 300 km (tanque cheio), viaja 75 km, deixa o 
equivalente a 150 kn., e retorna consumindo o equiva¬ 
lente a 75 km restantes no tanque. Q consumo total nes¬ 
te trecho será também do equivalente a 300 km 




Motoqueiro no Deserto 

Samu«l Ejch«l. 

(4 X 75 km). 

4. Finalmente, para o primeiro trecho, resta combustí¬ 

vel equivalente a 300 km, ou seja, 900 iniciais menos 
300 consumidos no 29 trecho e menos 300 consumidos 
no último. Ora, como ele é percorrido 6 vezes, sua ex¬ 
tensão será de 50 km (300:6). Com isso a distância má¬ 
xima atingida pela moto seria 50 + 75 150 = 275 km. 

5. Entre as várias alternativas possíveis de programa, a 
mais simples parece-nos a seguinte: 


le 

•30 

4-0 

50 

50 

70 

30 

90 

100 

110 

1S0 


130 


14-0 


150 

160 

170 

130 

190 

200 

Si0 


ENCHO O TON9ÜE NO OLDEXO- 
PENETRE 50 KM NO DESERTO. 
FOCO UH RE5ERUOTORIO COM 
COMBUSTIUEL PORO 200 KH. 
RETORNE PORO O OLDEIO. 
REPITO 05 INSTRUC.OE5 10 O 
4-0 MO 15 UMO UEZ. 

ENCHO O TON0UE NO OCDEIO 
PELO TERCEIRO UEZ. 

PENETRE NO DE5ERTO OTE« 
OTINGIR 05 RE5ERUOTORIOS 
O 50 KM DO OLDEIO. 
COMPLETE O TONOÜE DO MOTO 
RETIRONDO COMBU5TIUEL DE 
UM D05 RESERUOTORI05. 
PENETRB MOIS 75 KM NO DE¬ 
SERTO . 

FOCO UM RESERUOTORIO COM 
COMBUSTIUEL PORO 150 KM. 
RETORNE OTE 05 RE5ERUOTO- 
RIOS O 50 KM DO OLDEIO. 
ENCHO O TONOUE DO MOTO, 
DEUEM TER RESTODO COMSUS- 
TIUEL SUFICIENTE PORO 50 
KM NUM DOS RE5ERUOTORIOS. 
PENETRE NOUOMENTE 75 KM 
OTINGINDO O RESERUOTORIO 
COM COMBUSTIUEL PORO 150 
KM. 


COMPLETE O TONOUE DO MO¬ 
TO. DEUEM RE5TOR NO RE¬ 
SERUOTORIO, COMBUSTIUEL 
PORO 75 KM. 

PENETRE MOIS 150 KM NO 
DESERTO. 

PLRNTE O BONDEIRO. 

RETORNE OTE“ O RESERUOTO¬ 
RIO OUE CONTEM COMBUSTI¬ 
UEL PORO 75 KM, 

COLOOUE NO TONOUE TODO O 
COMBUSTIUEL E.XISTENTE NO 
RESERUOTORIO. 

RETORNE OTE* O RESERUOTO¬ 
RIO OUE CONTEM COMBUSTI¬ 
UEL PORO 50 KM. 

COLOOUE NO TONOUE TODO O 
COMBUSTIUEL E.XISTE^^^E NO 
RESERUOTORIO. 

RETORNE O OLDEIO. 


O 
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I so 


Nos próximos dias 17 a 23 de outubro, São Paulo será 
palco de um grandioso evento organizado pela Guaselli e 
SUCESU, contando com o apoio da ABICOMP; 0 
INFORMATICA/83. 

Este evento, a nível internacional, conta com a reali¬ 
zação de dois acontecimentos importantes, ou seja:a III 
Feira Internacional de Informática e o XVI Congresso 
Nacional de Informática, ambos acontecendo paralela¬ 
mente um ao outro. 

Este evento é de tão grande importância que, juntos, 
são considerados o terceiro maior acontecimento no 
mundo, na área de Informática, igualando-se ou, supe¬ 
rando até, 0 NCC nos EUA e o SICOB na França. 

A programação do INFORMATICA/83, foi estrutura¬ 
da toda ela na preocupação em atingir não somente aos 
profissionais e fabricantes do setor, mas também ao jo- 


LIVRARIA 
POLIEDRO 

REVISTAS NA INFORMÁTICA 

faça sua assinatura 

• BYTE, the small systems Journal 

- BASIC COMPUTING, the TRS SO joumal 

- COMPUTERS & ELECTRONICS, formerly popular 
electronics 

• COMPUTE, the leading magazine of home, educational and 
recreational computíng 

- COMPUTE S GAZETTt, Commodore VIC-20 and 64 
personal computers 

- CREATIVE COMPUTING, computers and people 

- DESKTOP COMPUTING, the plain language Computer 
magazine lor business 

• INCIDER, Green’s Apple magazine 

- INTERFACE AGE. computíng for business 

• MICRO. Advancing Computer kowledge 

- MICROCOMPUTING 

■ MICROSYSTEMS, the CP/M user s Journal 

• MIX, the recording industry magazine 

• NIBBLE, the reference for appie computíng 

• 80 MICRO, the magazine for TRS-80 users 
. PERSONAL COMPUTER World 

. PORTABLE COMPUTER 

• PC, the independent guide to IBM personal computers 

• PC WORLD, the personal Computer magazine for IBM PCs 
and compatibles 

• SYNC, the magazine for Sinclair users and 
TIMEX/SINCLAIR users. 

obs.: deixamos de colocar preços das assinaturas em 

virtude da constante alteração cambial. Consulte-nos 
Atendemos pedidos pelo reembolso postal • 

LIVROS E REVISTAS 

UVRARiA POUEDRO LTDA, 

R. Aurora. 704 (próx. Metrô Repúbiica) 

01209-São Paulo. tela. 221.6764 222.4297 


ELcv. Fv-ov^-fcaL Ana LOcia da Alcântara 

vem e a criança -* que serão os '"amantes da informática 
no futuro" —, como também aos leigos, ou seja, aqueles 
que não possuem um conhecimento mais aprofundado 
da área. "Uma oportunidade para que todos aqueles que 
se interessam pelo fantástico mundo da informática, te¬ 
nham acesso às informações básicas" — esclareceu Salva¬ 
dor Perroti, presidente do Evento IN FO/83. 

Esta programação terá uma movimentação calculada 
em cerca de 200 mil pessoas, conforme expôs o presi¬ 
dente do Evento (Salvador Perroti) —, com uma área 
ocupada, na Feira, de cerca de 23 mil metros quadrados, 
sendo que 19 mil será ocupada por expositores (mais 
ou menos 70 por cento constituída de equipamentos fa¬ 
bricados no Brasil, de empresas com desenvolvimento 
e tecnologia próprios); dois mil metros ocupados por 
universidades brasileiras e mil por entidades e institui¬ 
ções governamentais. 

Assim sendo, na opinião do presidente da Feira José 
Roberto Faria Lima, "a grande vedete deste evento, será 
a presença marcante da tecnologia nacional, e, "na fei¬ 
ra", (acrescentou José Roberto), "será a área de micros, 
pois esta é a área mais próxima do grande público — a 
área de contato da informática com o público que hoje 
existe no Brasil". 

A Feira: 

A III Feira Internacional de Informática na realidade, 
será a "chamariz" para toda a programação do evento. 
Com inúmeras atrações: atividades que incluem debates 
para universitários, para o grande público e para empre¬ 
sários e profissionais de informática, abordando temas 
centrados no universo da informática, não só a nível de 
desenvolvimento da área como avaliação da tecnologia 
adotada pelo Brasil; além de temas referentes a política 
nacional de softvvare e também referente às preocupa¬ 
ções de todos com a regulamentação da profissão e o 
sindicalismo na área; finalizando esta série de debates na 
feira, estará presente a preocupação com a análise da 
presença do Estado na economia da área de informática. 

Além destes debates haverá também um circo monta¬ 
do especialmente para as crianças, onde estas poderão 
tomar contato com os micros que estarão no picadeiro 
do circo, através de orientadoras e pedagogos especial¬ 
mente treinados para "brincar" com as crianças e o com¬ 
putador. E um robô, trazido especialmente para a feira, 
jogará uma partida de xadrez com o vencedor de um jo¬ 
go realizado numa praça pública com um tablado e com 
peças gigantes. 
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Outra preocupação dos organizadores desta feira, foi 
com a melhor forma de locomoção do público dentro 
do Anhembi. Para isto, osstands foram distribuídos por 
área, mostrando os produtos nacionais e estrangeiros la¬ 
do a lado. Para a orientação do público, foram pintadas, 
no chão, setas coloridas indicando o circuito a ser per¬ 
corrido. 

O Congresso 

O XVI Congresso Nacional de Informática tem uma 
tradição que remonta dos tempos difíceis de ano de 
1967 que, na época, foi chamado de Congresso Nacional 
de Processamento de Dados e que reuniu pouco mais de 
500 pessoas. 

Hoje em dia o Congresso tem o objetivo de colocar as 
técnicas automatizadas não só aos técnicos, como tam¬ 
bém ao grande público. 

Os seminários e debates do Congresso, contarão com 
, a presença de expositores de renome internacional como 
por exemplo Ralph Gomory falando sobre a Evolução 
da Tecnologia dos Computadores; John Maccarthy abor¬ 
dando o tema 'Inteligência Artificial" e Y.F. Lum falan¬ 
do sobre Videotexto, além de outros. Os temas versarão 
sobre diversos assuntos, tentando sempre atingir a todos 
os interesses. No dia 17, haverá a abertura, com seção 
solene e o congresso se estenderá até o dia 23 as 17 
horas. 

O Congresso estará distribuído no Anhembi, desde o 


plenário, ampliando-se aos auditórios E, G, J, na sala A, 
B, H e L; Iniciando-se as palestras, debates e cursos téc¬ 
nicos às 8 horas e encerrando-se às 17 horas. 

O intuito real dos organizadores de tamanho evento é 
transmitir a todos os frequentadores, a imagem de que a 
convivência entre o homem e o computador pode ser pa¬ 
cífica e recheada de trocas de informações úteis ao de¬ 
senvolvimento da humanidade. Tanto é que, na feira, ha¬ 
verá uma exposição de "artes plásticas", reunindo pai¬ 
néis, pinturas, gráficos e desenhos de vários autores fei¬ 
tos por computadores em todo o país. 

Diante de tudo isto onde estará a nossa revista? 

Nosso stand será especial; numa esquina localizada na 
rua M, número 7 no formato de uma banca de jornal, 
com computadores TK funcionando durante todos os 
sete dias da feira. 


J 


TECNOPOLI 

SPLICE 

MíCWCRAFT 

HENGESiSTEMS 

micromega 

snNo 1 


«M 

1 r 


Linguagem de máquina. 



Contando com pessoal de atendimento 
treinado nas próprias fábricas, o Depto. de 
Microcomputador da Allcolor está a sua 
disposicáo para falar-Uie fluentemente tudo 
sobre CPSOO, CP300, CP500, TK82, TK83 ou 
TK85. Falar-lhe das características 
específicas de cada hardware, dos 
equipamentos e configurações apropriados 
para cada uso, dos vários softs aplicativos ou 
jogos e, principalmente, falar-lhe das 
facilidades que a Allcolor, através do 
financiamento direto ou consórcio, oferece 
para vocé adquirir o seu microcomputador. 
Fale com o pessoal da Allcolor, ele vai falar a 
sua linguagem. 


Jacarei: Pça. Conde de Frontin, 76 - S.J. Campos. R. XV 
de Novembro, 9 e Calçadão, 383 — Taubate: Bispo 
Rodovalho, SÓ e Calçadão, 64. 
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ARTIGOS 



PROTEÇÃO JURÍDICA 
DO PROGRAMA DE UM COMPUTADOR 

19 parte 



A questão da protegibilidade, ou não. do programa de compu¬ 
tador eletrônico, através de normas jurídicas adaptadas ou pró¬ 
prias, não é muito novo. Em 1964. o Copyright Office, que é o 
órgão da Biblioteca do Congresso Norte-americano encarregado 
do desempenho de todas as funções e obrigações administrativas 
decorrentes da legislação sobre o direito autoral estadunidense (o 
chamado Copyright), já havia decidido efetuar o registro - como 
sendo obra suscetível daquela proteção — dos programas de com¬ 
putador eletrônico, desde que (a) fossem o resultado de uma 
autoria pessoal (contendo, portanto, originalidade), (b) já tives¬ 
sem sido publicados (isto é, postos à disposição do público) e (c) 
fossem entregues (àquele órgão) cópias elaboradas de maneira 
humanente legíveis. Em 1967. o Centro de Estudos Internacionais 
da Propriedade Industrial, que é órgão da Faculdade de Direito e 
de Ciências Políticas e Econômicas de Estrasburgo, na França, 
realizou um colóquio de engenheiros de processamento de dados, 
juristas e outros cientistas, sob o tema "A PROTEÇÃO DOS RE¬ 
SULTADOS DA PESOUlSA EM FACE DA EVOLUÇÃO DAS 
CIÊNCIAS E DAS TÉCNICAS", quando foram examinadas ques¬ 
tões atinentes à Microbiologia, á Ouímica Macrocelular. à Infor¬ 
mática e. em particular, aos Programas de Computadores Eletrô¬ 
nicos. Se bem que, naquela altura, o Parlamento Francês já dis¬ 
cutia 0 projeto de lei (promulgada em janeiro de 1968) que ex¬ 
cluiu da proteção pela Propriedade Industrial os programas, ne¬ 
gando-lhes os direitos de patentes de invenção e os de privilégios 
correspondentes, houve grande debate quanto á patenteabilidade 
dos programas, defendida por maioria. A tendência naquele coló¬ 
quio foi no sentido de que os programas poderiam ser protegidos 
pelo direito decorrente da concessão de patentes de invenção. Po¬ 
rém também houve juristas que defenderam a tese de que o pro¬ 
grama poderia e deveria ser protegido pelas regras do Direito 
Autoral, tendo em vista tratar-se de verdadeira obra do espírito 
humano, de natureza evidentemente intelectual, sujeita à reprodu¬ 
ção e execução, tal como se dá com os roteiros cinematográficos, 
ou com os projetos de engenharia (posição até hoje defendida pe¬ 
la maioria dos doutrinadores Italianos, em razão de peculiaridade 
do seu direito autoral interno, como se verá mais adiante). Além 
do exemplo norte-americano, também as Filipinas introduziram, 
expressamente, no seu Decreto de 14 de novembro de 1972 (re¬ 
lativo à propriedade intelectual), os programas de computadores, 
como obras às quais ele se aplica, segundo dispõe o seu art. 2. na 
alínea “n”. 

No Brasil, JOSÉ CARLOS TINOCO SOARES parece ter sido 
0 pioneiro na publicação de estudo a respeito do assunto, quando 
divulgou um artigo intitulado PROTEÇÃO DOS PROGRAMAS 
DE COMPUTADORES, através da Revista de Direito Mercantil, 
volume 17. de 1975 nas páginas 39/44. Ali, TINOCO SOARES 
defendeu a inaplicabilidade do Direito Autoral aos programas, 
assim como das regras atuais da Propriedade Industrial (patente 
de Invenção, ou privilégio de modelo industrial), nada obstante 
tivesse proposto a Introdução, em nosso sistema de direito positi¬ 
vo. de um privilégio dos programas de computadores, por um 
tempo determinado e rwo excedendo o máximo de cinco anos 
(ob. cit. pág. 44). 

Posteriormente. ROBERTO FRANK. CLÁUDIO DE SOUZA 
AMARAL e HENRIOUE GANDELMAN trataram do assunto em 
artigos publicados no periódico TELECOM (de 09.11.79 e 06.08. 
79, os dois primeiros, respectivamente) e no JORNAL DO 
BRASIL de 24.08.80, o último, todos defendendo, no entanto, 
a Inclusão dos programas entre as obras protegidas pelo Direito 
Autoral, embora com alguma temperança. 

Em 1979, a CAPRE — Comissão de Coordenação das Ativida¬ 
des de Processamento Eletrônico —. extinta com a criação da 
SECRETARIA ESPECIAL DE INFORMÁTICA - SEI que a 
substituiu, organizou um Grupo de Trabalho sobre Mecanis¬ 
mos de Controle à Importação de Software, em cujo relatório 


Eduardo J. Vieira Manso / Advogado 

propôs, entre outras sugestões, que. "no Brasil, se tomem as pri¬ 
meiras medidas para o estabelecimento de uma estrutura legal e 
jurídica adequada, sem optar pela legislação de direito autoral ou 
pelo direito de patente, que procure preservar e estimular as em¬ 
presas nacionais do ramo e aumentar em quantidade e qualidade 
a oferta de empregos para os profissionais brasileiros". 

Essa parece ser. mesmo, a tendência geral, a despeito dos Esta¬ 
dos Unidos da América, cuja Lei nP 96-517, de 12.12.80, alterou 
a legislação relativa aos direitos autorais, para deixar inequívoca 
sua proteção, como tal, aos programas de computadores eletrôni¬ 
cos, agora expressamente tratados como obras intelectuais gera¬ 
doras do Copyright, ratificando assim, como é de costume por lá, 
a posição antes assumida pelo Copyright Office. 

A OMPI — Organização Mundial da Propriedade Intelectual —, 
entidade intergovernamental e órgão especializado da UNESCO, 
a qual tem sede em Genebra, e cujo principal papel é promover a 
proteção da propriedade intelectual (entendida esta como os di¬ 
reitos autorais e a propriedade Industrial) por toda a Terra, além 
de administrar algumas das mais importantes convenções multi- 
laterais relativas ao Direito Intelectual —. depois de ouvir especia¬ 
listas de diversos países a ela filiados, criou, também, um Grupo 
Consultor de peritos governamentais, a fim de avaliar a necessida¬ 
de da proteção dos programas e a natureza de tal proteção. Entre 
outros motivos justificadores da oportunidade de uma proteção 
jurídica, segundo o representante da Alemanha Ocidental, foi res¬ 
saltado o fato de que, se não houver nenhuma proteção, os inte¬ 
ressados em obtê-la haveriam de adotar medidas de segredo (co- 
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mo. aliás, algumas empresas produtoras de equipamentos fazem), 
afirmando que isso não é desejável, do ponto de vista do progres' 
so dos conhecimentos técnicos. 

Depois de diversos anos de reuniões, estudos e debates, a OMPI 
aprovou e publicou um conjunto de regras que ofereceu aos 
governos dos países filiados, para servirem de guias, modelos ou 
sugestões para a elaboração de suas próprias legislações internas 
A tais regras foi dado o título oficial de "Disposições Tipos" e 
elas consagram a introdução, no mundo jurídico-legal, de um no¬ 
vo e especial direito para a proteção dos programas de compu¬ 
tadores eletrônicos, que, também, participa da classificação dos 
Direitos Intelectuais (ou da Propriedade Intelectual, como tam¬ 
bém são chamados aqueles direitos). 

Além disso, a OMPI também concluiu pela oportunidade de 
propor aos governos dos países a ela filiados a aprovação de um 
tratado internacional sobre a proteção do LOGICIÁRIO (palavra 
que é por mim proposta para substituir software, seguindo o 
exemplo dos franceses que a trocaram por logiciel). 

De um modo geral, as disposições tipos têm a seguinte estru¬ 
tura (que se transcreve da revista Le Droit d'Auteur, de 1978. 
pág 13) O artigo primeiro define o objeto da proteção ("progra^ 
ma de computador", "descrição do programa", "documentação 
auxiliar" e "logiciário", este último consistindo em um ou vários 
dos objetos mencionados anteriormente), assim como define o 
termo "proprietário". O artigo 2 determina a quem pertencem os 
direitos relativos ao logiciário, particularmente quando este foi 
criado por um empregado; além disso, regulamenta a transferência 
e a reversão dos direitos relativos ao logiciário. O artigo 3 define 
a exigência de originalidade do logiciário. O artigo 4 precisa que 
as noções (por oposição à forma em que elas são expressas) ficam 
fora dos limites da proteção fixada pela lei. O artigo 5 enumera os 
atos cobertos pelos direitos do proprietário, cuja lista pode divi’ 
dir se em duas partes: os pontos I e II tratam da divulgação não 
autorizada do logiciário e do acesso não autorizado ao logiciário, 
enquanto os pontos III e IV são concernentes aos atos de cópia, 
de utilização, de venda, etc, não autorizados, do logiciário. O ar¬ 
tigo 6 define a violação e prevê dois casos que não são considera¬ 
dos como violações (criação independente do logiciário e a situa¬ 
ção especial dos navios, dos engenhos espaciais ou engenhos de lo¬ 
comoção aérea ou terrestre estrangeiros que penetram o território 
de um país). O artigo 7 define a duração dos direitos conferidos 
pela lei (20 anos, contados da data da criação do logiciário). O ar¬ 
tigo 8 define as medidas judiciais disponiveis em caso de infração. 
O artigo 9 precisa que uma proteção fundada em outras disposi¬ 
ções (legais) não fica excluída. 

Em junho do corrente ano, a mesma OMPI preparou um texto 
de um "Esboço de Tratado para a Proteção do Logiciário" (em in¬ 
glês Draft Treaty for the Protection os Computer Software), cuja 
estrutura jurídica é basicamente a mesma daquela que têm as Dis 
posições Tipos, nas quais foram, evidentemente, calcados seus ar¬ 
tigos. Assim, os seis primeiros artigos do "Esboço de Tratado" re¬ 
ferem-se ao direito relativo a proteção do logiciário; definição, 
princípio da proteção (ou seja. prescreve a que a proteção a ser 
conferida em cada país signitário do tratado deverá ser no míni¬ 
mo igual à proteção prevista no próprio tratado, o que, todavia, 
não impedirá que a proteção nacional seja ainda mais ampla que a 
do tratado); tratamento nacional (isto é. o tratado prescreve que 
aos estrangeiros, oriundos de países filiados a ele, recebam o mes¬ 
mo tratamento que é dado aos nacionais, desde que tenham tam¬ 
bém cumprido as formalidades eventualmente exigidas, seja no 
seu país de origem, seja no país em que estiver pleiteando a prote¬ 
ção), os atos contra os quais se aplica a proteção; a duração da 
proteção (prevista em 20 anos. no tratado, tal como nas Disposi¬ 
ções Tipos) e os casos especiais dos veículos que ingressem no ter¬ 
ritório nacional, portando programas de seus países de origem 
Os demais artigos do projeto referem-se a assuntos administrati¬ 
vos. como as hipóteses e modos de revisão do tratado, as maneiras 
de ser parte dele e quando entra em vigência, assim como sua de¬ 
núncia, etc. 

Simultaneamente, a OMPI, através do seu Comitê de Peritos 
Governamentais, prepara-se para examinar, também, a questão da 
protegibilidade dos "circuitos integrados" (também conhecidos 


FAÇA o SEU CURSO BASIC 
EM CASA! 

CHEGOU O LIVRO 
QUE VOCÊ PRECISAVA! 


CURSO DE BASIC 

VOLUME I 



É um guia compreensivo, projetado para ensinar o 
iniciante a programar um microcomputador, com 
teoria e exercícios resolvidos. Ele também traz DICAS 
para transformar outros programas para os 
computadores de lógica SINCLAIR: TK82, TK83, TK85, 
CP200 e outros. 

Este curso foi testado na MICRO-KIT EDUCACIONAL 
e sâo 80 páginas de esclarecimento aos que iniciam 
ou que já sâo iniciados: adultos e crianças. 


PEÇA JÁ o SEU EXEMPLAR! 


Estou enviando o cheque n?_nominal à 

MICRO-KIT INFORMÁTICA LTDA.. no valor de Cr$4.200,CX) 

por unidade e desejo receber_exemplar(es) do 

LIVRO CURSO DE BASIC VOL I. 


NOME: _ 

ENDEREÇO __ 

ODADE:_ESTADO;_ CEP; 

LOJA MICRO-KIT 

Rua Visconde de PIrajá, 303 - SI. 210 
CEP 22410 • Rio de Janeiro - RJ 





LIVROS PARA 
TK82 - TK85 - CP200 


ITEM 

AUTOR 

TtTULO PREÇO: Cr$ 

o 01 

TOMS 

TheZX-ai PocKetBooli 

14 235. 

0 02 

STEWART 

• Peek, Poke, Bj^e & Ram . . 

9400. 

O 03 

FLOEGEL 

- ZX-81/Timex Prog m Basic and Machine 

004 

LOGAN 

Language... 

UnderstandingYourZX-81 ROM... 

13580. 

17 000. 

005 

HARRISON 

- Bvteing Deeper into Your Timex 

Smctair 1000. 

16830. 

06 

HILTON 

TheZX-SlAddonBook. 

10450. 

07 

GOH 

• Educare's 50 (IK Programs for Primary 



Education)... 

11300. 

•06 

HARTNELL 

49ExplosiveGan>esfortheZX41 .. 

14 230. 

09 

HURLEY 

The Smdar ZX-61 Prog for Real Ap{^ ... 

12 930. 

10 

MORSE 

- The Century Computer Programmmg 
Course in Sinclair Basic Using the ZX-81 



and Spectrum. 

18900. 

11 

PAGE 

37 Timex 1000/SmcMir ZX-81 Programs 
for home. School 1 Office. 

11630. 


PAGE 

- 101 Timex/SifKlair ZX-61 Prog Tips & 

M 


Tricks . 

10335. 

^ 13 

VALENTINE 

- WhatCanIdoWithMyTimex Sinclair 1000. 

12 935. 

14 

15 

MILGRON 

GOURLAY 

• Not Oniy 30 Programs for the ZX61(1 K).. 
Fifty 1K/2K Games for the ZX61 and 

13200. 



the Timex Sinclair 1000. 

14 230. 

o 16 

CMIU 

- Crunches 21 Simple Games for the 
Timex/Sinclair 1000 2K.. 



11630. 

17 

HARTNELL 

Makine The Mostof Your ZX61. 

Timex Sinclair 1000/ZX61 Basic Book. 

14 230. 

18 

NORMAN 

16.830. 

19 

LIMA 

• 45 Programas prontos para rodar em 
TK82C NEZ8000. 

4000. 

20 

T 21 

LIMA 

LIMA 

ApiicaçOes Sérias oara TK82C/CP20a 

30 Jogos p/TK82ÇeCP200. 

4.800. 

4000. 

22 

LAGROTTA 

• O Micro na Pequer>a Empresa 
(40 Programas). 

3980. 

Compre de qualquer parte do Brasil sem despesas Envie nos cheque 
cruzado em nome de CIÊNCIA MODERNA COMPUTACAO. e receba em 

casa seu pedido Ou peça pelo reembolso PosUi ou Varig 



PE0400SPARA 

CIÊNCIA MODERNA 
COMPUTAÇAO LTDA 

Av. Rio Branco. 156 - subsolo - li. 217 
20043 Rio d« Janaro Fone; tÒ21) 262-5723 


PSCREVANOS 
SOLICITANDO 

' P/SEU Micy f 
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como chips), que sao alvo de um desenvolvimento significativo, 
nos últimos anos, principalmente como incremento da fabricação 
de inúmeros produtos para uso diário, principalmente para co¬ 
mandar certos processos eletrônicos, como os das modernas má¬ 
quinas de lavar, dos jogos, de brinquedos, etc. A proteção dos cir¬ 
cuitos integrados, no entanto, ao menos segundo as regras previs¬ 
tas para a proteção dos programas de computadores, parece bas¬ 
tante incerto e algo remota. Por isso, a OMPI preferiu, a conselho 
dos peritos que integram seu Comitê Intergovernamental,antes de 
propor qualquer regulamentação protetiva, levantar todas as ques¬ 
tões que podem ser suscitadas a respeito, para equacioná-las e ve¬ 
rificar se, quando e qual proteção poderá ser sugerida e proposta. 

No Brasil, portanto, ainda não existe nenhuma norma legal ex¬ 
pressamente destinada a proteger os programas de computadores 
eletrônicos. A Secretaria Especial de Informática — SEI — está 
diligente e cuidadosamente elaborando um esboço de anteprojeto 
de lei, visando a estabelecer a proteção jurídica dos programas de 
computadores, o qual esta estruturado mais ou menos no molde 
das Disposições Tipos da OMPI (à qual o Brasil é filiado). Com 
muita cautela e segurança, a SEI está submetendo o seu estudo à 
análise e ao exame dos especialistas brasileiros, pedindo-lhes su¬ 
gestões, a fim de oferecer ao Governo um anteprojeto atual, mo¬ 
derno e eficaz, cujas normas possam conferir a melhor proteção 
jurídica aos programas, aos seus autores e, principalmente, pro¬ 
curando prevenir os interesses nacionais a respeito, que hão de es¬ 
tar acima dos interesses privados, tendo-se em conta que o Mundo 
será de quem detiver o maior número possível de informações e as 
puder processar eficientemente. 

Acompanhando de perto as sugestões formuladas pelo Grupo 
de Estudos organizado pela CAPRE, assim como atendendo, no 


que lhe foi possível, as recomendações apresentadas pela ''Comis¬ 
são Especial nP 002ISoftware e Serviços" (CE-003), que a própria 
SEI constitui, nos termos da Portaria nP 003, de 20.03.80, pro- 
cura-se instituir um novo direito, especial para atender às neces¬ 
sidades também especiais do seu complexo objeto. Esse direito, 
no entanto, por sua natureza e em razão principalmente da natu¬ 
reza de seu objeto, também pertence à classificação de Direito In¬ 
telectual, situando-se, portanto, ao lado do Direito Autoral e do 
Direito de Propriedade Industrial, dos quais será o irmão mais no¬ 
vo, posto que, sem nenhuma dúvida, o programa de computador, 
bem como todo o logiciário, é uma obra intelectual, evidentemen¬ 
te. Assim, não se estarão aplicando, integralmente, as regras do 
Direito Autoral, como haveria de acontecer se se admitisse, defini¬ 
tivamente, que os programas fossem obras objeto de tais regras, as 
quais, em conjunto, são perniciosas para o interesse nacional e até 
mesmo para a própria proteção pretendida. E não se aplicarão as 
regras do Direito da Propriedade Industrial, que, aliás, estão prati¬ 
camente vedadas, pelo que dispõe o Código da Propriedade Indus¬ 
trial, Cujo artigo 9P, entre as "invenções não privilegiáveis", in¬ 
clui, no inciso h, "os sistemas e programações, os planos ou os es¬ 
quemas de escrituração comercial, de cálculos, de financiamento, 
de crédito, de sorteios, de especulação ou de propaganda". 

Contudo, enquanto "seu" lobo não vem, isto é, na falta de 
normas jurídicas especialmente aplicáveis aos programas, como 
poderão, os interessados em obter alguma proteção, defender es¬ 
ses mesmos Interesses, principalmente quando ocorrerem atos de 
terceiros que lhes firam o que a sua consciência lhes aponta como 
"seus direitos". O que fazer contra a pirataria, que campeia 
solta? 

(Continua no próximo nCimaro) 
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teleoft 



endereços para 
você resolver seus 
problemas e iniciar 
ou completar o seu 
projeto. 


fíua Aurora, 279 ■ São Paulo ■ SP 
Tels.: PABX 220-5322 e 223-8211 
Telex: (011) 30743 TLCP BR 
(011) 31113 CCTP BR 


Rua Santa Efigãncia, 378/380 - SP 
Tels.: 221-2210 e 222-7322 


MEMÓRIAS 
CIRC. INTEGRADOS/ 
SEMICONDUTORES, 
TECLADOS 
CAIXAS E KITS 
CONECTORES 
SOQUETES 
LIVROS TÉCNICOS, 
FERRAMENTAS 
INSTRUMENTOS 


SAMEL 


Rua Aurora, 174 ■ São Paulo - SP 
Te!.: 220^6878 




REMESSA POSTAL: 

Remetemos pelo correio, mediante o 
envio de Vale Postal ou cheque visado. 


Instalação de rêdes e centrais telefônicas. Completo estoque de 
materiais p/telefones PBX e PABX. Rédes de interfones e 
manutenção de centrais telefônicas. 
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PEQUENOS 



ANÚNCIOS 


REVISTAS IMPORTADAS - FARAHS BOOK 
SHOP — Rua Haddock Lobo, 1503 — Fone: 881-3410, 

Vendo Timex/Sinclair 1000, ZX SPECTRUM, produ¬ 
tos MEMOTECH (HRG, 64K, Interface para impressora, 
etc.), programas e outros periféricos. Tratar com 
TANIOS - TeL: 270-3368. _ 

Serviço de Datilografia — IBM. Teses, apostilas e ma- 
nuais técnicos. Telefone: 258-8486 — Américo, SP. _ 

GRANDE CIRCUITO — Boletim para usuários do 
TK. Duas mil cópias em Off-set distribuídos para todo o 
Brasil. Anúncios grátis. Informações: CP: 28, CEP: 
27200 - Pirai. RJ. 

SOFTSYSTEM — Software importado para TK82/85, 
NEZ, CP 200, ZX 81, etc. Linguagem de máquina inédi¬ 
tas. Solicite catálogo para Caixa Postai 02, Poá, SP. CEP: 
08550. _ 

Troco ou vendo PROGRAMAS (NACIONAIS E IM¬ 
PORTADOS) para os micros: CP 200, TK82-C e ZX 81. 
Possuo Simulador de Vôo, Turbo, Galaxy e muitos 
outros jogos e aplicativos. Tratar com Eduardo Medeiros 

— R. Efiseu Guilherme, 1076 — Ribeirão Preto — SP — 

CEP: 14100— Atendo também por reembolso. _ 

Vendo ou troco PROGRAMAS DE JOGOS para 
TK82-C e TK85. Tratar com Edson — Rua Guariba, 54 

— São Paulo. Tel .; 918-0998 (c/ Ru th). _ 

RADIO MICRO — O primeiro grupo de rádio amado¬ 
res digitais do Brasil convida todos os radioamadores a 
conhecerem os projetos de hard e soft que estamos de¬ 
senvolvendo. Aos interessados entrarem em contato com 
PY-2-EMI Renato Strauss — R. Cardoso de Almeida, 
654/32 - 05013 - São Paulo. SP. _ 

Colocamos VIDEO-REVERSO em televisores 
TX-Philips, fazemos adaptações de TV's para monitor de 
vídeo e vendemos kits de vídeo-reverso. Luiz Weilington 

— Tel.:224-2776- Fortaleza/CE. 


Vendo programas nacionais e importados, 2K e 16K, 
BASIC e ASSEMBLER para micros TK82-C e similares 
(Aceito trocas) — Carlos A. Sciaretti - Caixa Posta! 
5567 - São Paulo, SP - CEP 01051 - Tel.: 522-8586. 

Conversor do NEZ8000 para SLOW: Em São Paulo, 
WILSON DE ASSIS faz a inclusão desta função no 
NEZ8000 por Cr$ 20.000,00 (mais as despesas de em¬ 
balagem e correio) e dá a garantia de 6 meses. Se o seu 
endereço for próximo ao dele, ele entregará em casa. 
O seu telefone é: (011) 203-7967 e o endereço: Rua 
Fabricio Correia, 145, Tucuruvi, 02311 — São Paulo - 
SP _ 

Vendo esquema completo do microcomputador 
NEZ8000 (com SLOW e expansão de memória) — 3 có¬ 
pias heliográficas. Cheque nominal de Cr$ 6.000,00 pa¬ 
ra JAN MARTIN LUND, Rua Frederico Ozanã, 16/21 — 
11100 — Santos — SP. _ 

Vendo ou troco programas de jogos para TK82-C e 
T K85. Tratar com Edson, R. Guariba, 54 — São Paulo — 
Tel. 918-0998 (c/ Ruth). _ 

Curso de Linguagem de máquina para TK82 e TK85 
(ASSEMBLY Z80). Aos sábados das 9:00 às 13:00 hs. 
— São Paulo — Fone: 813-4555 (Márcia) à tarde. _ 

Troca de programas para TK — Carlos Horácio C. 
Fontenelle — R. Alfeu Aboim, 770 — Aldeota — Forta- 
leza -CE- CEP: 60000. _ 

Sou possuidor de muitos programas para o TK82. Os 
interessados em trocá-los escrevam para Marco Aurélio 
Dias de Oliveira — Av. Afonso Pena, 1557 — Bloco B — 
apto. 214 — Campo Grande/MS — CEP: 79100. 

ESPlAO - Jogo de Aventura para TK e CP-200. Um 
desafio a sua Memória e Habilidade. 16K com SLOW. 
Cr$ 5.000,00. Pedidos pelo reembolso para Cx. Postal: 
28 - 27200 - Pirai - RJ. 
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Caso o seu micro não leia bem fitas 
programadas, compre um CMS/ZX 

para os computadores de lógica SINCLAIR: 



sinal emitido pelo 
gravador 




sinal modulado pelo 
CMS/ZX 


POLIMICRO 


Avenida Andrade Neves. 1.254 -Tel.: (0192) 8-0822 - CEP13.100 - CAMPINAS-SP 


X 


□ DESEJO CONHECER AS REVENDAS DE MINHA CIDADE 

□ EM ANEXO ESTOU ENVIANDO CHEQUE NOMINAL NO VALOR 

DE Cr$_PARA ADQUIRIR_UNIDADES DO CMS/ZX 


NOME: 

CIDADE: 

ENDEREÇO: 

CEP; ESTADO: 




mimMnega 


0.1 23456789 


MICROMEGA Publicações t Material Didático Ltda. 
Caixa Postal 60081 - CEP 05096 • São Paulo - SP 
CGC.:52.275.724/0001-41 - Inscr.Est.: 110.862.362 


n.^ assinatura 






TELEFONE 
CGC ou CPF 
INSCRIÇÃO 


ASSINATURA 


Estou anexando a quantia de Cr$ _ I i em cheque nominal 

para MICROMEGA P.M.D. Ltda., referente a venda de uma assinatura. vale postal 

em cheque nominal n.®_Banco _ 

Data / /_ 


ESTE CARTÃO NÃO PODE SER 
UTILIZADO POR TERCEIROS PARA 
COLETA DE ASSINATURAS 
Válido somente se postado diretamente 
pelo assinante. 
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COMO COLABORAR 
COM MICROHOBBY 


A Revista MICROHOBBY foi criada para servir de in¬ 
tercâmbio entre os leitores que participam do mágico 
mundo da computação. 

A característica realmente inovadora do computador 
pessoal, está em transformar cada consumidor num cria¬ 
dor. Aproveite sua criatividade e envie suas colaborações 
recebendo remuneração a título de DIREITO AUTO¬ 
RAL 

A maneira ideal de nos enviar o material a ser publica¬ 
do obedece às seguintes normas: 

1. Nunca esqueça de colocar o nome completo, telefone, 
endereço e número de sua assinatura em todo material 
enviada a nós, sejam listagens de impressora, fitas, enve¬ 
lope, carta ou qualquer outro material. 

2. Envie a listagem de programa datilografada ou, me¬ 
lhor ainda, tirada na impressora do computador. 

3. Coloque sempre uma linha REM com o nome do 
autor e o título do programa. 

4. Envie uma fita com o programa gravado algumas ve¬ 
zes (se possível em gravadores diferentes). 

5. Na fita, gravar com microfone (em viva voz), algumas 



instruções uteis: 
nome completo e endereço do remetente. 

6. Quando o programa for adaptado e/ou traduzido de 
outra revista, citar a fonte (autor original, data de publi¬ 
cação, nome da revista e todos os detalhes que houver 
referente à publicação). 

7. Anexar ao material, uma carta autorizando a publica¬ 
ção por parte da revista e assumindo a responsabilidade 
pela autoria do material e/ou adaptações. Nesta carta, 
para agilizar a remuneração, podem constar os dados da 
conta corrente onde daremos o depósito correspondente 
aos direitos autorais. 

8. O material não utilizado não será devolvido, ficando 
a critério da redação a decisão final sobre sua publi¬ 
cação. 

9. O material deve ser enviado para: 

MICROMEGA PUBLICAÇÕES E MATE¬ 
RIAL DIDÁTICO 

SEÇAO PROGRAMAS DO LEITOR 
RUA BAHIA, 1049 

01244 -SAO PAULO, SP. o 




COMO 
FAZER 
SUA 
ASSINATURA 


Quatquar reclamação deve ser feita por carta anexar^do, se possível, 
uma etiqueta de endereçamento, para que o atendimento seja o mais 
rápido possível. 

0 envelope deverá ser selado e endereçado à; 


MICROMEGA P.M.D. LTDA. 
DEPTO. DE ASSINATURAS 

Caixa Postal 60081 - CEP 05096 
São Paulo — SP 


A nossa revista não é distribuída nas bancas. Para 
obter seu exemplar mensal, contendo muitos programas 
para o seu TK, além de muitas dicas e prêmios interes¬ 
santíssimos, você deve fazer uma assinatura de Micro- 
Hobby num preço anual de Cr$ 11.800,00. 

Para tanto, você deverá preencher corretamente o 
cupom anexo, colocá-lo num envelope, junto a um che¬ 
que nominal ou vale postal a favor de MICROMEGA 
PUBLICAÇÕES E MATERIAL DIDÁTICO LTDA., no 
valor de Cr$ 11.800,00 (até 30/10). 


No verso do cheque escreva: 


"Destina-se ao pagamento de uma assinatura 
(12 números) da revista MICROHOBBY". 


Quando este cheque for devolvido ao seu Banco com 
nosso endosso, servirá de comprovante provisório até 
que nosso recibo seja enviado pelo correio. 

O 
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APLICATIVOS PARA TK 


ffUr-dOffCC/V; vinte e sete rotinas de vídeo, para Increnrventar seus 
programas! Inversão de vídeo, moldura, arquivo de Imagens, rotação, scroll em 
quatro direções, etc... efeitos visuais incríveis! Em linguagem de máquina, 
ocupa 1,3 Kb, ficando protegido no RAMTOP, depois é só utilizá lo onde quizer! 
P/1 dK. Com manual explicativo. 

TIGCOMP: coloque, em seus prc^ramas em BASIC, a velocidade de có¬ 
digo de máquina. Rode-os na forma COMPILADA! Simples de usar, é só 
carregar ou digitar o seu programa em BASIC e depois usar o TIG-COMP. 
Pronto! Você terá o seu programa em linguagem de máquina em Instantes. 
P/16K. Com manual explicativo. 

TIGSPEED: uma combinação de soft e hardware, permitindo uma 
transferência de dados micro/cassete de 4.200 bauds. Você poderá carregar ou 
gravar 16Kb em 30 segundos! Acrescenta ao micro a funçôo VERIFY. Facílimo 
de operar, compõe-se de cassete, interface e manual explicativo. P/16 e 48K. 


TIG'LOADER possibilita: 

• a localização do ótimo volume do gravador, facilitando a 
operação LOA D. 

• DUPLICAR qualquer programa, mesmo aqueles 
"fechados" 

• carregar (LOAD) e DUPLICAR simultaneamente. 

• gravar (SAVE) em 2 gravadores ao mesmo tempo. 

• monitoraras operações LOA D, SAVE ou DUPLICAÇÃO 
através de fone. 

• filtrar as interferências elétricas de baixa frequência, que 
são a causa da maioria dos problemas de LOAD/SAVE. 


1 TIGRE 


COM. DE EQUIR P/COMPUTADORES LTDA. 

Rua Correia Galvâo, 224 • CEP 01547- Sáo Paulo 


Envie seu pedido + cheque cruzado. - 
Prazo de entrega: 15 dias. 

Despesas postais incluídas nos preços. 


Atendemos somente por carta. 
Solicite relação de programas em fita. 


Ir 


SIM < desejo receber o TIG-LOADER. 


para tanto, astou anexando o cheque nj 


rw valor de CrS, 


NOME; 


ENDEREÇO: 

CEP: 

CIDADE: 

ESTADO: 

PROFISSAO: 

ASSINATURA; 

K)AOE; 

MARCA DO MICROCOMPUTADOR: 
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INFORAAATICA 


RoFSantá Ifigénii^ow™ 
Tel. (011) 221-9055 
Telex (011) 34901 -POEC 


Rua General Jardim 482 • 40andar 
Tel. (011) 221-9055 
Telex (011)34901 - POEC 










